Copyright>        OpenRadioss
Copyright>        Copyright (C) 1986-2024 Altair Engineering Inc.
Copyright>
Copyright>        This program is free software: you can redistribute it and/or modify
Copyright>        it under the terms of the GNU Affero General Public License as published by
Copyright>        the Free Software Foundation, either version 3 of the License, or
Copyright>        (at your option) any later version.
Copyright>
Copyright>        This program is distributed in the hope that it will be useful,
Copyright>        but WITHOUT ANY WARRANTY; without even the implied warranty of
Copyright>        MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Copyright>        GNU Affero General Public License for more details.
Copyright>
Copyright>        You should have received a copy of the GNU Affero General Public License
Copyright>        along with this program.  If not, see <https://www.gnu.org/licenses/>.
Copyright>
Copyright>
Copyright>        Commercial Alternative: Altair Radioss Software
Copyright>
Copyright>        As an alternative to this open-source version, Altair also offers Altair Radioss
Copyright>        software under a commercial license.  Contact Altair to discuss further if the
Copyright>        commercial version may interest you: https://www.altair.com/radioss/.
Chd|====================================================================
Chd|  HM_READ_FAIL_HC_DSSE          source/materials/fail/hc_dsse/hm_read_fail_hc_dsse.F
Chd|-- called by -----------
Chd|        HM_READ_FAIL                  source/materials/fail/hm_read_fail.F
Chd|-- calls ---------------
Chd|        HM_GET_FLOATV                 source/devtools/hm_reader/hm_get_floatv.F
Chd|        HM_GET_INTV                   source/devtools/hm_reader/hm_get_intv.F
Chd|        HM_OPTION_IS_ENCRYPTED        source/devtools/hm_reader/hm_option_is_encrypted.F
Chd|        LINEAR_INTERP                 source/materials/fail/hc_dsse/hm_read_fail_hc_dsse.F
Chd|        FAIL_PARAM_MOD                ../common_source/modules/mat_elem/fail_param_mod.F
Chd|        HM_OPTION_READ_MOD            share/modules1/hm_option_read_mod.F
Chd|        MESSAGE_MOD                   share/message_module/message_mod.F
Chd|        SUBMODEL_MOD                  share/modules1/submodel_mod.F 
Chd|====================================================================
      SUBROUTINE HM_READ_FAIL_HC_DSSE(FAIL    ,
     .           MAT_ID   ,FAIL_ID  ,IRUPT    ,LSUBMODEL,UNITAB   )
C-----------------------------------------------
c    ROUTINE DESCRIPTION :
c    Read HC-DSSE failure model parameters
C-----------------------------------------------
c!   UVAR 1 = damage value flag for IP at DSSE instability 
c!   UVAR 2 = damage value for DSSE 
C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE FAIL_PARAM_MOD
      USE UNITAB_MOD
      USE MESSAGE_MOD 
      USE SUBMODEL_MOD
      USE HM_OPTION_READ_MOD 
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "units_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER             ,INTENT(IN) :: FAIL_ID       ! failure model ID
      INTEGER             ,INTENT(IN) :: MAT_ID        ! material law ID
      INTEGER             ,INTENT(IN) :: IRUPT         ! failure model number
      TYPE (UNIT_TYPE_)   ,INTENT(IN) :: UNITAB        ! table of input units
      TYPE (SUBMODEL_DATA),INTENT(IN) :: LSUBMODEL(*)  ! submodel table 
      TYPE (FAIL_PARAM_)  ,INTENT(INOUT) :: FAIL       ! failure model data structure
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER  :: I,IFAIL_SH,IFLAG,NUVAR,NUPARAM
      my_real  :: PTHKF,AFRAC,BFRAC,CFRAC,NFRAC,INST,INST2,
     .            AFRAC2,BFRAC2,CFRAC2,Y,
     .            B16,B17,B18,B19,B21,F05,G12,I12,SMALL,
     .            TAB(1201),LX(1201)
       LOGICAL :: IS_AVAILABLE,IS_ENCRYPTED
C=======================================================================
      IS_ENCRYPTED = .FALSE.
      IS_AVAILABLE = .FALSE.
C--------------------------------------------------
C EXTRACT DATA (IS OPTION CRYPTED)
C--------------------------------------------------
      CALL HM_OPTION_IS_ENCRYPTED(IS_ENCRYPTED)
C--------------------------------------------------
C EXTRACT DATAS  
C--------------------------------------------------
       LX( 1 )= 1.000000000000d0
       LX( 2 )= 1.000043653485d0
       LX( 3 )= 1.000087406030d0
       LX( 4 )= 1.000131257805d0
       LX( 5 )= 1.000175208983d0
       LX( 6 )= 1.000219259736d0
       LX( 7 )= 1.000263410235d0
       LX( 8 )= 1.000307660652d0
       LX( 9 )= 1.000352011163d0
       LX( 10 )= 1.000396461938d0
       LX( 11 )= 1.000441013153d0
       LX( 12 )= 1.000485664981d0
       LX( 13 )= 1.000530417596d0
       LX( 14 )= 1.000575271174d0
       LX( 15 )= 1.000620225890d0
       LX( 16 )= 1.000665281920d0
       LX( 17 )= 1.000710439438d0
       LX( 18 )= 1.000755698622d0
       LX( 19 )= 1.000801059649d0
       LX( 20 )= 1.000846522695d0
       LX( 21 )= 1.000892087938d0
       LX( 22 )= 1.000937755556d0
       LX( 23 )= 1.000983525727d0
       LX( 24 )= 1.001029398630d0
       LX( 25 )= 1.001075374444d0
       LX( 26 )= 1.001121453348d0
       LX( 27 )= 1.001167635522d0
       LX( 28 )= 1.001213921146d0
       LX( 29 )= 1.001260310401d0
       LX( 30 )= 1.001306803467d0
       LX( 31 )= 1.001353400527d0
       LX( 32 )= 1.001400101762d0
       LX( 33 )= 1.001446907354d0
       LX( 34 )= 1.001493817485d0
       LX( 35 )= 1.001540832340d0
       LX( 36 )= 1.001587952100d0
       LX( 37 )= 1.001635176949d0
       LX( 38 )= 1.001682507073d0
       LX( 39 )= 1.001729942655d0
       LX( 40 )= 1.001777483880d0
       LX( 41 )= 1.001825130935d0
       LX( 42 )= 1.001872884003d0
       LX( 43 )= 1.001920743272d0
       LX( 44 )= 1.001968708929d0
       LX( 45 )= 1.002016781160d0
       LX( 46 )= 1.002064960152d0
       LX( 47 )= 1.002113246094d0
       LX( 48 )= 1.002161639173d0
       LX( 49 )= 1.002210139579d0
       LX( 50 )= 1.002258747500d0
       LX( 51 )= 1.002307463126d0
       LX( 52 )= 1.002356286647d0
       LX( 53 )= 1.002405218252d0
       LX( 54 )= 1.002454258133d0
       LX( 55 )= 1.002503406481d0
       LX( 56 )= 1.002552663488d0
       LX( 57 )= 1.002602029345d0
       LX( 58 )= 1.002651504244d0
       LX( 59 )= 1.002701088379d0
       LX( 60 )= 1.002750781943d0
       LX( 61 )= 1.002800585130d0
       LX( 62 )= 1.002850498133d0
       LX( 63 )= 1.002900521147d0
       LX( 64 )= 1.002950654368d0
       LX( 65 )= 1.003000897990d0
       LX( 66 )= 1.003051252209d0
       LX( 67 )= 1.003101717222d0
       LX( 68 )= 1.003152293225d0
       LX( 69 )= 1.003202980416d0
       LX( 70 )= 1.003253778992d0
       LX( 71 )= 1.003304689151d0
       LX( 72 )= 1.003355711091d0
       LX( 73 )= 1.003406845012d0
       LX( 74 )= 1.003458091113d0
       LX( 75 )= 1.003509449593d0
       LX( 76 )= 1.003560920653d0
       LX( 77 )= 1.003612504493d0
       LX( 78 )= 1.003664201315d0
       LX( 79 )= 1.003716011320d0
       LX( 80 )= 1.003767934711d0
       LX( 81 )= 1.003819971689d0
       LX( 82 )= 1.003872122458d0
       LX( 83 )= 1.003924387220d0
       LX( 84 )= 1.003976766181d0
       LX( 85 )= 1.004029259543d0
       LX( 86 )= 1.004081867513d0
       LX( 87 )= 1.004134590294d0
       LX( 88 )= 1.004187428094d0
       LX( 89 )= 1.004240381117d0
       LX( 90 )= 1.004293449571d0
       LX( 91 )= 1.004346633662d0
       LX( 92 )= 1.004399933598d0
       LX( 93 )= 1.004453349588d0
       LX( 94 )= 1.004506881839d0
       LX( 95 )= 1.004560530561d0
       LX( 96 )= 1.004614295963d0
       LX( 97 )= 1.004668178254d0
       LX( 98 )= 1.004722177646d0
       LX( 99 )= 1.004776294349d0
       LX( 100 )= 1.004830528574d0
       LX( 101 )= 1.004884880533d0
       LX( 102 )= 1.004939350439d0
       LX( 103 )= 1.004993938503d0
       LX( 104 )= 1.005048644940d0
       LX( 105 )= 1.005103469964d0
       LX( 106 )= 1.005158413787d0
       LX( 107 )= 1.005213476626d0
       LX( 108 )= 1.005268658694d0
       LX( 109 )= 1.005323960209d0
       LX( 110 )= 1.005379381385d0
       LX( 111 )= 1.005434922440d0
       LX( 112 )= 1.005490583591d0
       LX( 113 )= 1.005546365056d0
       LX( 114 )= 1.005602267052d0
       LX( 115 )= 1.005658289798d0
       LX( 116 )= 1.005714433513d0
       LX( 117 )= 1.005770698418d0
       LX( 118 )= 1.005827084731d0
       LX( 119 )= 1.005883592674d0
       LX( 120 )= 1.005940222469d0
       LX( 121 )= 1.005996974335d0
       LX( 122 )= 1.006053848497d0
       LX( 123 )= 1.006110845176d0
       LX( 124 )= 1.006167964595d0
       LX( 125 )= 1.006225206978d0
       LX( 126 )= 1.006282572550d0
       LX( 127 )= 1.006340061536d0
       LX( 128 )= 1.006397674159d0
       LX( 129 )= 1.006455410647d0
       LX( 130 )= 1.006513271225d0
       LX( 131 )= 1.006571256121d0
       LX( 132 )= 1.006629365561d0
       LX( 133 )= 1.006687599774d0
       LX( 134 )= 1.006745958987d0
       LX( 135 )= 1.006804443430d0
       LX( 136 )= 1.006863053333d0
       LX( 137 )= 1.006921788924d0
       LX( 138 )= 1.006980650435d0
       LX( 139 )= 1.007039638097d0
       LX( 140 )= 1.007098752141d0
       LX( 141 )= 1.007157992799d0
       LX( 142 )= 1.007217360305d0
       LX( 143 )= 1.007276854890d0
       LX( 144 )= 1.007336476789d0
       LX( 145 )= 1.007396226237d0
       LX( 146 )= 1.007456103467d0
       LX( 147 )= 1.007516108716d0
       LX( 148 )= 1.007576242219d0
       LX( 149 )= 1.007636504213d0
       LX( 150 )= 1.007696894934d0
       LX( 151 )= 1.007757414621d0
       LX( 152 )= 1.007818063511d0
       LX( 153 )= 1.007878841844d0
       LX( 154 )= 1.007939749857d0
       LX( 155 )= 1.008000787792d0
       LX( 156 )= 1.008061955888d0
       LX( 157 )= 1.008123254387d0
       LX( 158 )= 1.008184683529d0
       LX( 159 )= 1.008246243558d0
       LX( 160 )= 1.008307934715d0
       LX( 161 )= 1.008369757243d0
       LX( 162 )= 1.008431711387d0
       LX( 163 )= 1.008493797391d0
       LX( 164 )= 1.008556015500d0
       LX( 165 )= 1.008618365959d0
       LX( 166 )= 1.008680849015d0
       LX( 167 )= 1.008743464913d0
       LX( 168 )= 1.008806213901d0
       LX( 169 )= 1.008869096228d0
       LX( 170 )= 1.008932112141d0
       LX( 171 )= 1.008995261889d0
       LX( 172 )= 1.009058545722d0
       LX( 173 )= 1.009121963891d0
       LX( 174 )= 1.009185516645d0
       LX( 175 )= 1.009249204236d0
       LX( 176 )= 1.009313026917d0
       LX( 177 )= 1.009376984939d0
       LX( 178 )= 1.009441078556d0
       LX( 179 )= 1.009505308022d0
       LX( 180 )= 1.009569673591d0
       LX( 181 )= 1.009634175518d0
       LX( 182 )= 1.009698814058d0
       LX( 183 )= 1.009763589468d0
       LX( 184 )= 1.009828502004d0
       LX( 185 )= 1.009893551924d0
       LX( 186 )= 1.009958739486d0
       LX( 187 )= 1.010024064949d0
       LX( 188 )= 1.010089528571d0
       LX( 189 )= 1.010155130613d0
       LX( 190 )= 1.010220871334d0
       LX( 191 )= 1.010286750997d0
       LX( 192 )= 1.010352769863d0
       LX( 193 )= 1.010418928194d0
       LX( 194 )= 1.010485226254d0
       LX( 195 )= 1.010551664305d0
       LX( 196 )= 1.010618242612d0
       LX( 197 )= 1.010684961441d0
       LX( 198 )= 1.010751821056d0
       LX( 199 )= 1.010818821724d0
       LX( 200 )= 1.010885963711d0
       LX( 201 )= 1.010953247285d0
       LX( 202 )= 1.011020672714d0
       LX( 203 )= 1.011088240268d0
       LX( 204 )= 1.011155950214d0
       LX( 205 )= 1.011223802824d0
       LX( 206 )= 1.011291798367d0
       LX( 207 )= 1.011359937116d0
       LX( 208 )= 1.011428219342d0
       LX( 209 )= 1.011496645318d0
       LX( 210 )= 1.011565215318d0
       LX( 211 )= 1.011633929615d0
       LX( 212 )= 1.011702788483d0
       LX( 213 )= 1.011771792200d0
       LX( 214 )= 1.011840941039d0
       LX( 215 )= 1.011910235278d0
       LX( 216 )= 1.011979675195d0
       LX( 217 )= 1.012049261066d0
       LX( 218 )= 1.012118993172d0
       LX( 219 )= 1.012188871791d0
       LX( 220 )= 1.012258897203d0
       LX( 221 )= 1.012329069690d0
       LX( 222 )= 1.012399389532d0
       LX( 223 )= 1.012469857012d0
       LX( 224 )= 1.012540472412d0
       LX( 225 )= 1.012611236016d0
       LX( 226 )= 1.012682148108d0
       LX( 227 )= 1.012753208973d0
       LX( 228 )= 1.012824418897d0
       LX( 229 )= 1.012895778166d0
       LX( 230 )= 1.012967287066d0
       LX( 231 )= 1.013038945886d0
       LX( 232 )= 1.013110754914d0
       LX( 233 )= 1.013182714439d0
       LX( 234 )= 1.013254824750d0
       LX( 235 )= 1.013327086139d0
       LX( 236 )= 1.013399498897d0
       LX( 237 )= 1.013472063315d0
       LX( 238 )= 1.013544779686d0
       LX( 239 )= 1.013617648304d0
       LX( 240 )= 1.013690669463d0
       LX( 241 )= 1.013763843458d0
       LX( 242 )= 1.013837170583d0
       LX( 243 )= 1.013910651136d0
       LX( 244 )= 1.013984285414d0
       LX( 245 )= 1.014058073715d0
       LX( 246 )= 1.014132016336d0
       LX( 247 )= 1.014206113577d0
       LX( 248 )= 1.014280365739d0
       LX( 249 )= 1.014354773121d0
       LX( 250 )= 1.014429336026d0
       LX( 251 )= 1.014504054756d0
       LX( 252 )= 1.014578929614d0
       LX( 253 )= 1.014653960903d0
       LX( 254 )= 1.014729148928d0
       LX( 255 )= 1.014804493995d0
       LX( 256 )= 1.014879996409d0
       LX( 257 )= 1.014955656477d0
       LX( 258 )= 1.015031474507d0
       LX( 259 )= 1.015107450807d0
       LX( 260 )= 1.015183585686d0
       LX( 261 )= 1.015259879455d0
       LX( 262 )= 1.015336332423d0
       LX( 263 )= 1.015412944903d0
       LX( 264 )= 1.015489717206d0
       LX( 265 )= 1.015566649646d0
       LX( 266 )= 1.015643742536d0
       LX( 267 )= 1.015720996191d0
       LX( 268 )= 1.015798410927d0
       LX( 269 )= 1.015875987059d0
       LX( 270 )= 1.015953724904d0
       LX( 271 )= 1.016031624781d0
       LX( 272 )= 1.016109687008d0
       LX( 273 )= 1.016187911904d0
       LX( 274 )= 1.016266299789d0
       LX( 275 )= 1.016344850985d0
       LX( 276 )= 1.016423565814d0
       LX( 277 )= 1.016502444597d0
       LX( 278 )= 1.016581487658d0
       LX( 279 )= 1.016660695323d0
       LX( 280 )= 1.016740067915d0
       LX( 281 )= 1.016819605760d0
       LX( 282 )= 1.016899309186d0
       LX( 283 )= 1.016979178520d0
       LX( 284 )= 1.017059214091d0
       LX( 285 )= 1.017139416227d0
       LX( 286 )= 1.017219785258d0
       LX( 287 )= 1.017300321517d0
       LX( 288 )= 1.017381025334d0
       LX( 289 )= 1.017461897042d0
       LX( 290 )= 1.017542936974d0
       LX( 291 )= 1.017624145466d0
       LX( 292 )= 1.017705522851d0
       LX( 293 )= 1.017787069466d0
       LX( 294 )= 1.017868785649d0
       LX( 295 )= 1.017950671736d0
       LX( 296 )= 1.018032728067d0
       LX( 297 )= 1.018114954980d0
       LX( 298 )= 1.018197352816d0
       LX( 299 )= 1.018279921918d0
       LX( 300 )= 1.018362662625d0
       LX( 301 )= 1.018445575282d0
       LX( 302 )= 1.018528660233d0
       LX( 303 )= 1.018611917822d0
       LX( 304 )= 1.018695348395d0
       LX( 305 )= 1.018778952298d0
       LX( 306 )= 1.018862729879d0
       LX( 307 )= 1.018946681487d0
       LX( 308 )= 1.019030807470d0
       LX( 309 )= 1.019115108178d0
       LX( 310 )= 1.019199583964d0
       LX( 311 )= 1.019284235178d0
       LX( 312 )= 1.019369062173d0
       LX( 313 )= 1.019454065304d0
       LX( 314 )= 1.019539244925d0
       LX( 315 )= 1.019624601392d0
       LX( 316 )= 1.019710135061d0
       LX( 317 )= 1.019795846290d0
       LX( 318 )= 1.019881735437d0
       LX( 319 )= 1.019967802861d0
       LX( 320 )= 1.020054048923d0
       LX( 321 )= 1.020140473985d0
       LX( 322 )= 1.020227078407d0
       LX( 323 )= 1.020313862554d0
       LX( 324 )= 1.020400826789d0
       LX( 325 )= 1.020487971478d0
       LX( 326 )= 1.020575296986d0
       LX( 327 )= 1.020662803681d0
       LX( 328 )= 1.020750491930d0
       LX( 329 )= 1.020838362102d0
       LX( 330 )= 1.020926414566d0
       LX( 331 )= 1.021014649695d0
       LX( 332 )= 1.021103067859d0
       LX( 333 )= 1.021191669432d0
       LX( 334 )= 1.021280454786d0
       LX( 335 )= 1.021369424297d0
       LX( 336 )= 1.021458578341d0
       LX( 337 )= 1.021547917294d0
       LX( 338 )= 1.021637441534d0
       LX( 339 )= 1.021727151439d0
       LX( 340 )= 1.021817047390d0
       LX( 341 )= 1.021907129766d0
       LX( 342 )= 1.021997398950d0
       LX( 343 )= 1.022087855325d0
       LX( 344 )= 1.022178499274d0
       LX( 345 )= 1.022269331181d0
       LX( 346 )= 1.022360351434d0
       LX( 347 )= 1.022451560417d0
       LX( 348 )= 1.022542958520d0
       LX( 349 )= 1.022634546131d0
       LX( 350 )= 1.022726323640d0
       LX( 351 )= 1.022818291438d0
       LX( 352 )= 1.022910449917d0
       LX( 353 )= 1.023002799470d0
       LX( 354 )= 1.023095340491d0
       LX( 355 )= 1.023188073375d0
       LX( 356 )= 1.023280998519d0
       LX( 357 )= 1.023374116319d0
       LX( 358 )= 1.023467427173d0
       LX( 359 )= 1.023560931482d0
       LX( 360 )= 1.023654629646d0
       LX( 361 )= 1.023748522066d0
       LX( 362 )= 1.023842609145d0
       LX( 363 )= 1.023936891286d0
       LX( 364 )= 1.024031368894d0
       LX( 365 )= 1.024126042375d0
       LX( 366 )= 1.024220912136d0
       LX( 367 )= 1.024315978586d0
       LX( 368 )= 1.024411242132d0
       LX( 369 )= 1.024506703186d0
       LX( 370 )= 1.024602362158d0
       LX( 371 )= 1.024698219462d0
       LX( 372 )= 1.024794275510d0
       LX( 373 )= 1.024890530718d0
       LX( 374 )= 1.024986985501d0
       LX( 375 )= 1.025083640276d0
       LX( 376 )= 1.025180495462d0
       LX( 377 )= 1.025277551477d0
       LX( 378 )= 1.025374808742d0
       LX( 379 )= 1.025472267678d0
       LX( 380 )= 1.025569928708d0
       LX( 381 )= 1.025667792256d0
       LX( 382 )= 1.025765858746d0
       LX( 383 )= 1.025864128605d0
       LX( 384 )= 1.025962602261d0
       LX( 385 )= 1.026061280140d0
       LX( 386 )= 1.026160162674d0
       LX( 387 )= 1.026259250292d0
       LX( 388 )= 1.026358543427d0
       LX( 389 )= 1.026458042511d0
       LX( 390 )= 1.026557747980d0
       LX( 391 )= 1.026657660269d0
       LX( 392 )= 1.026757779814d0
       LX( 393 )= 1.026858107053d0
       LX( 394 )= 1.026958642425d0
       LX( 395 )= 1.027059386371d0
       LX( 396 )= 1.027160339332d0
       LX( 397 )= 1.027261501751d0
       LX( 398 )= 1.027362874071d0
       LX( 399 )= 1.027464456739d0
       LX( 400 )= 1.027566250199d0
       LX( 401 )= 1.027668254901d0
       LX( 402 )= 1.027770471293d0
       LX( 403 )= 1.027872899824d0
       LX( 404 )= 1.027975540947d0
       LX( 405 )= 1.028078395114d0
       LX( 406 )= 1.028181462778d0
       LX( 407 )= 1.028284744395d0
       LX( 408 )= 1.028388240421d0
       LX( 409 )= 1.028491951314d0
       LX( 410 )= 1.028595877533d0
       LX( 411 )= 1.028700019538d0
       LX( 412 )= 1.028804377790d0
       LX( 413 )= 1.028908952753d0
       LX( 414 )= 1.029013744889d0
       LX( 415 )= 1.029118754665d0
       LX( 416 )= 1.029223982547d0
       LX( 417 )= 1.029329429003d0
       LX( 418 )= 1.029435094503d0
       LX( 419 )= 1.029540979516d0
       LX( 420 )= 1.029647084515d0
       LX( 421 )= 1.029753409973d0
       LX( 422 )= 1.029859956364d0
       LX( 423 )= 1.029966724165d0
       LX( 424 )= 1.030073713852d0
       LX( 425 )= 1.030180925904d0
       LX( 426 )= 1.030288360801d0
       LX( 427 )= 1.030396019023d0
       LX( 428 )= 1.030503901055d0
       LX( 429 )= 1.030612007379d0
       LX( 430 )= 1.030720338480d0
       LX( 431 )= 1.030828894847d0
       LX( 432 )= 1.030937676965d0
       LX( 433 )= 1.031046685326d0
       LX( 434 )= 1.031155920419d0
       LX( 435 )= 1.031265382738d0
       LX( 436 )= 1.031375072774d0
       LX( 437 )= 1.031484991024d0
       LX( 438 )= 1.031595137984d0
       LX( 439 )= 1.031705514152d0
       LX( 440 )= 1.031816120026d0
       LX( 441 )= 1.031926956108d0
       LX( 442 )= 1.032038022899d0
       LX( 443 )= 1.032149320903d0
       LX( 444 )= 1.032260850625d0
       LX( 445 )= 1.032372612571d0
       LX( 446 )= 1.032484607249d0
       LX( 447 )= 1.032596835168d0
       LX( 448 )= 1.032709296839d0
       LX( 449 )= 1.032821992774d0
       LX( 450 )= 1.032934923486d0
       LX( 451 )= 1.033048089491d0
       LX( 452 )= 1.033161491306d0
       LX( 453 )= 1.033275129448d0
       LX( 454 )= 1.033389004436d0
       LX( 455 )= 1.033503116792d0
       LX( 456 )= 1.033617467039d0
       LX( 457 )= 1.033732055700d0
       LX( 458 )= 1.033846883300d0
       LX( 459 )= 1.033961950368d0
       LX( 460 )= 1.034077257431d0
       LX( 461 )= 1.034192805019d0
       LX( 462 )= 1.034308593665d0
       LX( 463 )= 1.034424623901d0
       LX( 464 )= 1.034540896261d0
       LX( 465 )= 1.034657411283d0
       LX( 466 )= 1.034774169504d0
       LX( 467 )= 1.034891171462d0
       LX( 468 )= 1.035008417700d0
       LX( 469 )= 1.035125908760d0
       LX( 470 )= 1.035243645185d0
       LX( 471 )= 1.035361627522d0
       LX( 472 )= 1.035479856316d0
       LX( 473 )= 1.035598332119d0
       LX( 474 )= 1.035717055478d0
       LX( 475 )= 1.035836026948d0
       LX( 476 )= 1.035955247080d0
       LX( 477 )= 1.036074716431d0
       LX( 478 )= 1.036194435558d0
       LX( 479 )= 1.036314405018d0
       LX( 480 )= 1.036434625372d0
       LX( 481 )= 1.036555097182d0
       LX( 482 )= 1.036675821010d0
       LX( 483 )= 1.036796797423d0
       LX( 484 )= 1.036918026987d0
       LX( 485 )= 1.037039510269d0
       LX( 486 )= 1.037161247841d0
       LX( 487 )= 1.037283240274d0
       LX( 488 )= 1.037405488140d0
       LX( 489 )= 1.037527992017d0
       LX( 490 )= 1.037650752479d0
       LX( 491 )= 1.037773770106d0
       LX( 492 )= 1.037897045477d0
       LX( 493 )= 1.038020579175d0
       LX( 494 )= 1.038144371784d0
       LX( 495 )= 1.038268423887d0
       LX( 496 )= 1.038392736074d0
       LX( 497 )= 1.038517308932d0
       LX( 498 )= 1.038642143052d0
       LX( 499 )= 1.038767239026d0
       LX( 500 )= 1.038892597449d0
       LX( 501 )= 1.039018218916d0
       LX( 502 )= 1.039144104025d0
       LX( 503 )= 1.039270253374d0
       LX( 504 )= 1.039396667567d0
       LX( 505 )= 1.039523347204d0
       LX( 506 )= 1.039650292892d0
       LX( 507 )= 1.039777505236d0
       LX( 508 )= 1.039904984845d0
       LX( 509 )= 1.040032732329d0
       LX( 510 )= 1.040160748301d0
       LX( 511 )= 1.040289033373d0
       LX( 512 )= 1.040417588163d0
       LX( 513 )= 1.040546413286d0
       LX( 514 )= 1.040675509364d0
       LX( 515 )= 1.040804877016d0
       LX( 516 )= 1.040934516866d0
       LX( 517 )= 1.041064429539d0
       LX( 518 )= 1.041194615662d0
       LX( 519 )= 1.041325075863d0
       LX( 520 )= 1.041455810774d0
       LX( 521 )= 1.041586821027d0
       LX( 522 )= 1.041718107256d0
       LX( 523 )= 1.041849670097d0
       LX( 524 )= 1.041981510190d0
       LX( 525 )= 1.042113628174d0
       LX( 526 )= 1.042246024691d0
       LX( 527 )= 1.042378700386d0
       LX( 528 )= 1.042511655904d0
       LX( 529 )= 1.042644891894d0
       LX( 530 )= 1.042778409006d0
       LX( 531 )= 1.042912207891d0
       LX( 532 )= 1.043046289204d0
       LX( 533 )= 1.043180653601d0
       LX( 534 )= 1.043315301738d0
       LX( 535 )= 1.043450234278d0
       LX( 536 )= 1.043585451881d0
       LX( 537 )= 1.043720955211d0
       LX( 538 )= 1.043856744935d0
       LX( 539 )= 1.043992821721d0
       LX( 540 )= 1.044129186238d0
       LX( 541 )= 1.044265839159d0
       LX( 542 )= 1.044402781158d0
       LX( 543 )= 1.044540012912d0
       LX( 544 )= 1.044677535098d0
       LX( 545 )= 1.044815348397d0
       LX( 546 )= 1.044953453493d0
       LX( 547 )= 1.045091851068d0
       LX( 548 )= 1.045230541811d0
       LX( 549 )= 1.045369526410d0
       LX( 550 )= 1.045508805557d0
       LX( 551 )= 1.045648379943d0
       LX( 552 )= 1.045788250265d0
       LX( 553 )= 1.045928417220d0
       LX( 554 )= 1.046068881507d0
       LX( 555 )= 1.046209643829d0
       LX( 556 )= 1.046350704889d0
       LX( 557 )= 1.046492065394d0
       LX( 558 )= 1.046633726051d0
       LX( 559 )= 1.046775687571d0
       LX( 560 )= 1.046917950668d0
       LX( 561 )= 1.047060516055d0
       LX( 562 )= 1.047203384450d0
       LX( 563 )= 1.047346556573d0
       LX( 564 )= 1.047490033145d0
       LX( 565 )= 1.047633814890d0
       LX( 566 )= 1.047777902534d0
       LX( 567 )= 1.047922296806d0
       LX( 568 )= 1.048066998437d0
       LX( 569 )= 1.048212008158d0
       LX( 570 )= 1.048357326707d0
       LX( 571 )= 1.048502954820d0
       LX( 572 )= 1.048648893237d0
       LX( 573 )= 1.048795142700d0
       LX( 574 )= 1.048941703955d0
       LX( 575 )= 1.049088577748d0
       LX( 576 )= 1.049235764828d0
       LX( 577 )= 1.049383265947d0
       LX( 578 )= 1.049531081859d0
       LX( 579 )= 1.049679213320d0
       LX( 580 )= 1.049827661090d0
       LX( 581 )= 1.049976425929d0
       LX( 582 )= 1.050125508602d0
       LX( 583 )= 1.050274909873d0
       LX( 584 )= 1.050424630511d0
       LX( 585 )= 1.050574671289d0
       LX( 586 )= 1.050725032977d0
       LX( 587 )= 1.050875716354d0
       LX( 588 )= 1.051026722196d0
       LX( 589 )= 1.051178051285d0
       LX( 590 )= 1.051329704403d0
       LX( 591 )= 1.051481682337d0
       LX( 592 )= 1.051633985875d0
       LX( 593 )= 1.051786615807d0
       LX( 594 )= 1.051939572927d0
       LX( 595 )= 1.052092858031d0
       LX( 596 )= 1.052246471916d0
       LX( 597 )= 1.052400415384d0
       LX( 598 )= 1.052554689239d0
       LX( 599 )= 1.052709294286d0
       LX( 600 )= 1.052864231334d0
       LX( 601 )= 1.053019501195d0
       LX( 602 )= 1.053175104682d0
       LX( 603 )= 1.053331042611d0
       LX( 604 )= 1.053487315802d0
       LX( 605 )= 1.053643925077d0
       LX( 606 )= 1.053800871260d0
       LX( 607 )= 1.053958155178d0
       LX( 608 )= 1.054115777661d0
       LX( 609 )= 1.054273739541d0
       LX( 610 )= 1.054432041653d0
       LX( 611 )= 1.054590684836d0
       LX( 612 )= 1.054749669929d0
       LX( 613 )= 1.054908997777d0
       LX( 614 )= 1.055068669224d0
       LX( 615 )= 1.055228685121d0
       LX( 616 )= 1.055389046318d0
       LX( 617 )= 1.055549753669d0
       LX( 618 )= 1.055710808033d0
       LX( 619 )= 1.055872210268d0
       LX( 620 )= 1.056033961237d0
       LX( 621 )= 1.056196061806d0
       LX( 622 )= 1.056358512844d0
       LX( 623 )= 1.056521315221d0
       LX( 624 )= 1.056684469811d0
       LX( 625 )= 1.056847977492d0
       LX( 626 )= 1.057011839143d0
       LX( 627 )= 1.057176055647d0
       LX( 628 )= 1.057340627890d0
       LX( 629 )= 1.057505556759d0
       LX( 630 )= 1.057670843147d0
       LX( 631 )= 1.057836487947d0
       LX( 632 )= 1.058002492057d0
       LX( 633 )= 1.058168856378d0
       LX( 634 )= 1.058335581812d0
       LX( 635 )= 1.058502669265d0
       LX( 636 )= 1.058670119648d0
       LX( 637 )= 1.058837933872d0
       LX( 638 )= 1.059006112852d0
       LX( 639 )= 1.059174657507d0
       LX( 640 )= 1.059343568758d0
       LX( 641 )= 1.059512847529d0
       LX( 642 )= 1.059682494748d0
       LX( 643 )= 1.059852511346d0
       LX( 644 )= 1.060022898256d0
       LX( 645 )= 1.060193656414d0
       LX( 646 )= 1.060364786762d0
       LX( 647 )= 1.060536290241d0
       LX( 648 )= 1.060708167798d0
       LX( 649 )= 1.060880420383d0
       LX( 650 )= 1.061053048947d0
       LX( 651 )= 1.061226054447d0
       LX( 652 )= 1.061399437842d0
       LX( 653 )= 1.061573200093d0
       LX( 654 )= 1.061747342166d0
       LX( 655 )= 1.061921865030d0
       LX( 656 )= 1.062096769657d0
       LX( 657 )= 1.062272057021d0
       LX( 658 )= 1.062447728101d0
       LX( 659 )= 1.062623783880d0
       LX( 660 )= 1.062800225341d0
       LX( 661 )= 1.062977053473d0
       LX( 662 )= 1.063154269269d0
       LX( 663 )= 1.063331873722d0
       LX( 664 )= 1.063509867832d0
       LX( 665 )= 1.063688252601d0
       LX( 666 )= 1.063867029033d0
       LX( 667 )= 1.064046198138d0
       LX( 668 )= 1.064225760926d0
       LX( 669 )= 1.064405718415d0
       LX( 670 )= 1.064586071623d0
       LX( 671 )= 1.064766821572d0
       LX( 672 )= 1.064947969288d0
       LX( 673 )= 1.065129515801d0
       LX( 674 )= 1.065311462143d0
       LX( 675 )= 1.065493809352d0
       LX( 676 )= 1.065676558467d0
       LX( 677 )= 1.065859710532d0
       LX( 678 )= 1.066043266594d0
       LX( 679 )= 1.066227227703d0
       LX( 680 )= 1.066411594915d0
       LX( 681 )= 1.066596369287d0
       LX( 682 )= 1.066781551880d0
       LX( 683 )= 1.066967143761d0
       LX( 684 )= 1.067153145998d0
       LX( 685 )= 1.067339559663d0
       LX( 686 )= 1.067526385834d0
       LX( 687 )= 1.067713625590d0
       LX( 688 )= 1.067901280015d0
       LX( 689 )= 1.068089350196d0
       LX( 690 )= 1.068277837225d0
       LX( 691 )= 1.068466742197d0
       LX( 692 )= 1.068656066212d0
       LX( 693 )= 1.068845810370d0
       LX( 694 )= 1.069035975780d0
       LX( 695 )= 1.069226563552d0
       LX( 696 )= 1.069417574800d0
       LX( 697 )= 1.069609010642d0
       LX( 698 )= 1.069800872200d0
       LX( 699 )= 1.069993160600d0
       LX( 700 )= 1.070185876972d0
       LX( 701 )= 1.070379022451d0
       LX( 702 )= 1.070572598173d0
       LX( 703 )= 1.070766605280d0
       LX( 704 )= 1.070961044920d0
       LX( 705 )= 1.071155918240d0
       LX( 706 )= 1.071351226396d0
       LX( 707 )= 1.071546970545d0
       LX( 708 )= 1.071743151850d0
       LX( 709 )= 1.071939771475d0
       LX( 710 )= 1.072136830592d0
       LX( 711 )= 1.072334330376d0
       LX( 712 )= 1.072532272003d0
       LX( 713 )= 1.072730656658d0
       LX( 714 )= 1.072929485527d0
       LX( 715 )= 1.073128759800d0
       LX( 716 )= 1.073328480675d0
       LX( 717 )= 1.073528649349d0
       LX( 718 )= 1.073729267026d0
       LX( 719 )= 1.073930334915d0
       LX( 720 )= 1.074131854229d0
       LX( 721 )= 1.074333826183d0
       LX( 722 )= 1.074536251999d0
       LX( 723 )= 1.074739132902d0
       LX( 724 )= 1.074942470121d0
       LX( 725 )= 1.075146264892d0
       LX( 726 )= 1.075350518452d0
       LX( 727 )= 1.075555232045d0
       LX( 728 )= 1.075760406917d0
       LX( 729 )= 1.075966044322d0
       LX( 730 )= 1.076172145514d0
       LX( 731 )= 1.076378711756d0
       LX( 732 )= 1.076585744312d0
       LX( 733 )= 1.076793244452d0
       LX( 734 )= 1.077001213452d0
       LX( 735 )= 1.077209652590d0
       LX( 736 )= 1.077418563149d0
       LX( 737 )= 1.077627946420d0
       LX( 738 )= 1.077837803693d0
       LX( 739 )= 1.078048136268d0
       LX( 740 )= 1.078258945447d0
       LX( 741 )= 1.078470232536d0
       LX( 742 )= 1.078681998849d0
       LX( 743 )= 1.078894245700d0
       LX( 744 )= 1.079106974412d0
       LX( 745 )= 1.079320186312d0
       LX( 746 )= 1.079533882730d0
       LX( 747 )= 1.079748065001d0
       LX( 748 )= 1.079962734468d0
       LX( 749 )= 1.080177892475d0
       LX( 750 )= 1.080393540374d0
       LX( 751 )= 1.080609679519d0
       LX( 752 )= 1.080826311272d0
       LX( 753 )= 1.081043436998d0
       LX( 754 )= 1.081261058067d0
       LX( 755 )= 1.081479175855d0
       LX( 756 )= 1.081697791742d0
       LX( 757 )= 1.081916907115d0
       LX( 758 )= 1.082136523364d0
       LX( 759 )= 1.082356641884d0
       LX( 760 )= 1.082577264078d0
       LX( 761 )= 1.082798391350d0
       LX( 762 )= 1.083020025113d0
       LX( 763 )= 1.083242166784d0
       LX( 764 )= 1.083464817783d0
       LX( 765 )= 1.083687979539d0
       LX( 766 )= 1.083911653483d0
       LX( 767 )= 1.084135841054d0
       LX( 768 )= 1.084360543694d0
       LX( 769 )= 1.084585762852d0
       LX( 770 )= 1.084811499982d0
       LX( 771 )= 1.085037756543d0
       LX( 772 )= 1.085264534000d0
       LX( 773 )= 1.085491833822d0
       LX( 774 )= 1.085719657487d0
       LX( 775 )= 1.085948006474d0
       LX( 776 )= 1.086176882270d0
       LX( 777 )= 1.086406286369d0
       LX( 778 )= 1.086636220267d0
       LX( 779 )= 1.086866685468d0
       LX( 780 )= 1.087097683482d0
       LX( 781 )= 1.087329215822d0
       LX( 782 )= 1.087561284011d0
       LX( 783 )= 1.087793889573d0
       LX( 784 )= 1.088027034042d0
       LX( 785 )= 1.088260718954d0
       LX( 786 )= 1.088494945854d0
       LX( 787 )= 1.088729716290d0
       LX( 788 )= 1.088965031819d0
       LX( 789 )= 1.089200894001d0
       LX( 790 )= 1.089437304403d0
       LX( 791 )= 1.089674264599d0
       LX( 792 )= 1.089911776167d0
       LX( 793 )= 1.090149840693d0
       LX( 794 )= 1.090388459768d0
       LX( 795 )= 1.090627634988d0
       LX( 796 )= 1.090867367958d0
       LX( 797 )= 1.091107660285d0
       LX( 798 )= 1.091348513587d0
       LX( 799 )= 1.091589929484d0
       LX( 800 )= 1.091831909605d0
       LX( 801 )= 1.092074455583d0
       LX( 802 )= 1.092317569059d0
       LX( 803 )= 1.092561251679d0
       LX( 804 )= 1.092805505098d0
       LX( 805 )= 1.093050330973d0
       LX( 806 )= 1.093295730970d0
       LX( 807 )= 1.093541706763d0
       LX( 808 )= 1.093788260029d0
       LX( 809 )= 1.094035392454d0
       LX( 810 )= 1.094283105729d0
       LX( 811 )= 1.094531401552d0
       LX( 812 )= 1.094780281629d0
       LX( 813 )= 1.095029747669d0
       LX( 814 )= 1.095279801393d0
       LX( 815 )= 1.095530444523d0
       LX( 816 )= 1.095781678791d0
       LX( 817 )= 1.096033505936d0
       LX( 818 )= 1.096285927703d0
       LX( 819 )= 1.096538945842d0
       LX( 820 )= 1.096792562113d0
       LX( 821 )= 1.097046778280d0
       LX( 822 )= 1.097301596117d0
       LX( 823 )= 1.097557017402d0
       LX( 824 )= 1.097813043921d0
       LX( 825 )= 1.098069677468d0
       LX( 826 )= 1.098326919842d0
       LX( 827 )= 1.098584772852d0
       LX( 828 )= 1.098843238311d0
       LX( 829 )= 1.099102318040d0
       LX( 830 )= 1.099362013870d0
       LX( 831 )= 1.099622327635d0
       LX( 832 )= 1.099883261178d0
       LX( 833 )= 1.100144816351d0
       LX( 834 )= 1.100406995010d0
       LX( 835 )= 1.100669799021d0
       LX( 836 )= 1.100933230257d0
       LX( 837 )= 1.101197290597d0
       LX( 838 )= 1.101461981929d0
       LX( 839 )= 1.101727306147d0
       LX( 840 )= 1.101993265155d0
       LX( 841 )= 1.102259860861d0
       LX( 842 )= 1.102527095184d0
       LX( 843 )= 1.102794970049d0
       LX( 844 )= 1.103063487389d0
       LX( 845 )= 1.103332649145d0
       LX( 846 )= 1.103602457264d0
       LX( 847 )= 1.103872913704d0
       LX( 848 )= 1.104144020428d0
       LX( 849 )= 1.104415779408d0
       LX( 850 )= 1.104688192624d0
       LX( 851 )= 1.104961262065d0
       LX( 852 )= 1.105234989725d0
       LX( 853 )= 1.105509377610d0
       LX( 854 )= 1.105784427730d0
       LX( 855 )= 1.106060142106d0
       LX( 856 )= 1.106336522767d0
       LX( 857 )= 1.106613571748d0
       LX( 858 )= 1.106891291095d0
       LX( 859 )= 1.107169682860d0
       LX( 860 )= 1.107448749105d0
       LX( 861 )= 1.107728491900d0
       LX( 862 )= 1.108008913323d0
       LX( 863 )= 1.108290015459d0
       LX( 864 )= 1.108571800406d0
       LX( 865 )= 1.108854270265d0
       LX( 866 )= 1.109137427149d0
       LX( 867 )= 1.109421273180d0
       LX( 868 )= 1.109705810487d0
       LX( 869 )= 1.109991041207d0
       LX( 870 )= 1.110276967489d0
       LX( 871 )= 1.110563591487d0
       LX( 872 )= 1.110850915367d0
       LX( 873 )= 1.111138941302d0
       LX( 874 )= 1.111427671474d0
       LX( 875 )= 1.111717108076d0
       LX( 876 )= 1.112007253308d0
       LX( 877 )= 1.112298109379d0
       LX( 878 )= 1.112589678508d0
       LX( 879 )= 1.112881962923d0
       LX( 880 )= 1.113174964862d0
       LX( 881 )= 1.113468686570d0
       LX( 882 )= 1.113763130304d0
       LX( 883 )= 1.114058298328d0
       LX( 884 )= 1.114354192917d0
       LX( 885 )= 1.114650816356d0
       LX( 886 )= 1.114948170938d0
       LX( 887 )= 1.115246258965d0
       LX( 888 )= 1.115545082751d0
       LX( 889 )= 1.115844644618d0
       LX( 890 )= 1.116144946898d0
       LX( 891 )= 1.116445991933d0
       LX( 892 )= 1.116747782075d0
       LX( 893 )= 1.117050319685d0
       LX( 894 )= 1.117353607134d0
       LX( 895 )= 1.117657646805d0
       LX( 896 )= 1.117962441088d0
       LX( 897 )= 1.118267992385d0
       LX( 898 )= 1.118574303107d0
       LX( 899 )= 1.118881375677d0
       LX( 900 )= 1.119189212527d0
       LX( 901 )= 1.119497816099d0
       LX( 902 )= 1.119807188846d0
       LX( 903 )= 1.120117333230d0
       LX( 904 )= 1.120428251726d0
       LX( 905 )= 1.120739946818d0
       LX( 906 )= 1.121052420999d0
       LX( 907 )= 1.121365676776d0
       LX( 908 )= 1.121679716664d0
       LX( 909 )= 1.121994543191d0
       LX( 910 )= 1.122310158892d0
       LX( 911 )= 1.122626566318d0
       LX( 912 )= 1.122943768027d0
       LX( 913 )= 1.123261766588d0
       LX( 914 )= 1.123580564585d0
       LX( 915 )= 1.123900164607d0
       LX( 916 )= 1.124220569260d0
       LX( 917 )= 1.124541781158d0
       LX( 918 )= 1.124863802927d0
       LX( 919 )= 1.125186637203d0
       LX( 920 )= 1.125510286636d0
       LX( 921 )= 1.125834753885d0
       LX( 922 )= 1.126160041622d0
       LX( 923 )= 1.126486152530d0
       LX( 924 )= 1.126813089305d0
       LX( 925 )= 1.127140854651d0
       LX( 926 )= 1.127469451288d0
       LX( 927 )= 1.127798881946d0
       LX( 928 )= 1.128129149366d0
       LX( 929 )= 1.128460256302d0
       LX( 930 )= 1.128792205520d0
       LX( 931 )= 1.129124999799d0
       LX( 932 )= 1.129458641927d0
       LX( 933 )= 1.129793134708d0
       LX( 934 )= 1.130128480955d0
       LX( 935 )= 1.130464683497d0
       LX( 936 )= 1.130801745171d0
       LX( 937 )= 1.131139668831d0
       LX( 938 )= 1.131478457339d0
       LX( 939 )= 1.131818113574d0
       LX( 940 )= 1.132158640424d0
       LX( 941 )= 1.132500040793d0
       LX( 942 )= 1.132842317595d0
       LX( 943 )= 1.133185473759d0
       LX( 944 )= 1.133529512225d0
       LX( 945 )= 1.133874435948d0
       LX( 946 )= 1.134220247895d0
       LX( 947 )= 1.134566951046d0
       LX( 948 )= 1.134914548395d0
       LX( 949 )= 1.135263042950d0
       LX( 950 )= 1.135612437729d0
       LX( 951 )= 1.135962735768d0
       LX( 952 )= 1.136313940113d0
       LX( 953 )= 1.136666053826d0
       LX( 954 )= 1.137019079981d0
       LX( 955 )= 1.137373021667d0
       LX( 956 )= 1.137727881987d0
       LX( 957 )= 1.138083664056d0
       LX( 958 )= 1.138440371006d0
       LX( 959 )= 1.138798005979d0
       LX( 960 )= 1.139156572136d0
       LX( 961 )= 1.139516072648d0
       LX( 962 )= 1.139876510703d0
       LX( 963 )= 1.140237889503d0
       LX( 964 )= 1.140600212264d0
       LX( 965 )= 1.140963482216d0
       LX( 966 )= 1.141327702604d0
       LX( 967 )= 1.141692876689d0
       LX( 968 )= 1.142059007745d0
       LX( 969 )= 1.142426099062d0
       LX( 970 )= 1.142794153946d0
       LX( 971 )= 1.143163175715d0
       LX( 972 )= 1.143533167705d0
       LX( 973 )= 1.143904133265d0
       LX( 974 )= 1.144276075762d0
       LX( 975 )= 1.144648998577d0
       LX( 976 )= 1.145022905105d0
       LX( 977 )= 1.145397798760d0
       LX( 978 )= 1.145773682968d0
       LX( 979 )= 1.146150561174d0
       LX( 980 )= 1.146528436836d0
       LX( 981 )= 1.146907313430d0
       LX( 982 )= 1.147287194448d0
       LX( 983 )= 1.147668083397d0
       LX( 984 )= 1.148049983800d0
       LX( 985 )= 1.148432899199d0
       LX( 986 )= 1.148816833149d0
       LX( 987 )= 1.149201789223d0
       LX( 988 )= 1.149587771012d0
       LX( 989 )= 1.149974782121d0
       LX( 990 )= 1.150362826173d0
       LX( 991 )= 1.150751906810d0
       LX( 992 )= 1.151142027687d0
       LX( 993 )= 1.151533192479d0
       LX( 994 )= 1.151925404878d0
       LX( 995 )= 1.152318668592d0
       LX( 996 )= 1.152712987346d0
       LX( 997 )= 1.153108364886d0
       LX( 998 )= 1.153504804971d0
       LX( 999 )= 1.153902311381d0
       LX( 1000 )= 1.154300887912d0
       LX( 1001 )= 1.154700538379d0
       LX( 1002 )= 1.155101266615d0
       LX( 1003 )= 1.155503076470d0
       LX( 1004 )= 1.155905971814d0
       LX( 1005 )= 1.156309956533d0
       LX( 1006 )= 1.156715034534d0
       LX( 1007 )= 1.157121209740d0
       LX( 1008 )= 1.157528486095d0
       LX( 1009 )= 1.157936867561d0
       LX( 1010 )= 1.158346358118d0
       LX( 1011 )= 1.158756961765d0
       LX( 1012 )= 1.159168682522d0
       LX( 1013 )= 1.159581524427d0
       LX( 1014 )= 1.159995491537d0
       LX( 1015 )= 1.160410587928d0
       LX( 1016 )= 1.160826817698d0
       LX( 1017 )= 1.161244184962d0
       LX( 1018 )= 1.161662693855d0
       LX( 1019 )= 1.162082348535d0
       LX( 1020 )= 1.162503153176d0
       LX( 1021 )= 1.162925111975d0
       LX( 1022 )= 1.163348229148d0
       LX( 1023 )= 1.163772508931d0
       LX( 1024 )= 1.164197955582d0
       LX( 1025 )= 1.164624573380d0
       LX( 1026 )= 1.165052366621d0
       LX( 1027 )= 1.165481339626d0
       LX( 1028 )= 1.165911496737d0
       LX( 1029 )= 1.166342842313d0
       LX( 1030 )= 1.166775380739d0
       LX( 1031 )= 1.167209116419d0
       LX( 1032 )= 1.167644053779d0
       LX( 1033 )= 1.168080197266d0
       LX( 1034 )= 1.168517551350d0
       LX( 1035 )= 1.168956120524d0
       LX( 1036 )= 1.169395909299d0
       LX( 1037 )= 1.169836922212d0
       LX( 1038 )= 1.170279163821d0
       LX( 1039 )= 1.170722638707d0
       LX( 1040 )= 1.171167351472d0
       LX( 1041 )= 1.171613306743d0
       LX( 1042 )= 1.172060509169d0
       LX( 1043 )= 1.172508963421d0
       LX( 1044 )= 1.172958674194d0
       LX( 1045 )= 1.173409646208d0
       LX( 1046 )= 1.173861884204d0
       LX( 1047 )= 1.174315392947d0
       LX( 1048 )= 1.174770177227d0
       LX( 1049 )= 1.175226241856d0
       LX( 1050 )= 1.175683591673d0
       LX( 1051 )= 1.176142231539d0
       LX( 1052 )= 1.176602166339d0
       LX( 1053 )= 1.177063400984d0
       LX( 1054 )= 1.177525940408d0
       LX( 1055 )= 1.177989789573d0
       LX( 1056 )= 1.178454953462d0
       LX( 1057 )= 1.178921437085d0
       LX( 1058 )= 1.179389245477d0
       LX( 1059 )= 1.179858383700d0
       LX( 1060 )= 1.180328856840d0
       LX( 1061 )= 1.180800670008d0
       LX( 1062 )= 1.181273828343d0
       LX( 1063 )= 1.181748337008d0
       LX( 1064 )= 1.182224201195d0
       LX( 1065 )= 1.182701426119d0
       LX( 1066 )= 1.183180017024d0
       LX( 1067 )= 1.183659979180d0
       LX( 1068 )= 1.184141317884d0
       LX( 1069 )= 1.184624038461d0
       LX( 1070 )= 1.185108146262d0
       LX( 1071 )= 1.185593646665d0
       LX( 1072 )= 1.186080545077d0
       LX( 1073 )= 1.186568846933d0
       LX( 1074 )= 1.187058557694d0
       LX( 1075 )= 1.187549682852d0
       LX( 1076 )= 1.188042227924d0
       LX( 1077 )= 1.188536198458d0
       LX( 1078 )= 1.189031600031d0
       LX( 1079 )= 1.189528438246d0
       LX( 1080 )= 1.190026718738d0
       LX( 1081 )= 1.190526447170d0
       LX( 1082 )= 1.191027629235d0
       LX( 1083 )= 1.191530270655d0
       LX( 1084 )= 1.192034377182d0
       LX( 1085 )= 1.192539954598d0
       LX( 1086 )= 1.193047008716d0
       LX( 1087 )= 1.193555545378d0
       LX( 1088 )= 1.194065570458d0
       LX( 1089 )= 1.194577089859d0
       LX( 1090 )= 1.195090109518d0
       LX( 1091 )= 1.195604635400d0
       LX( 1092 )= 1.196120673504d0
       LX( 1093 )= 1.196638229858d0
       LX( 1094 )= 1.197157310524d0
       LX( 1095 )= 1.197677921596d0
       LX( 1096 )= 1.198200069199d0
       LX( 1097 )= 1.198723759491d0
       LX( 1098 )= 1.199248998663d0
       LX( 1099 )= 1.199775792938d0
       LX( 1100 )= 1.200304148573d0
       LX( 1101 )= 1.200834071859d0
       LX( 1102 )= 1.201365569118d0
       LX( 1103 )= 1.201898646708d0
       LX( 1104 )= 1.202433311021d0
       LX( 1105 )= 1.202969568483d0
       LX( 1106 )= 1.203507425552d0
       LX( 1107 )= 1.204046888724d0
       LX( 1108 )= 1.204587964529d0
       LX( 1109 )= 1.205130659531d0
       LX( 1110 )= 1.205674980331d0
       LX( 1111 )= 1.206220933564d0
       LX( 1112 )= 1.206768525902d0
       LX( 1113 )= 1.207317764053d0
       LX( 1114 )= 1.207868654760d0
       LX( 1115 )= 1.208421204804d0
       LX( 1116 )= 1.208975421004d0
       LX( 1117 )= 1.209531310212d0
       LX( 1118 )= 1.210088879322d0
       LX( 1119 )= 1.210648135262d0
       LX( 1120 )= 1.211209085001d0
       LX( 1121 )= 1.211771735542d0
       LX( 1122 )= 1.212336093931d0
       LX( 1123 )= 1.212902167249d0
       LX( 1124 )= 1.213469962618d0
       LX( 1125 )= 1.214039487197d0
       LX( 1126 )= 1.214610748187d0
       LX( 1127 )= 1.215183752828d0
       LX( 1128 )= 1.215758508397d0
       LX( 1129 )= 1.216335022216d0
       LX( 1130 )= 1.216913301644d0
       LX( 1131 )= 1.217493354082d0
       LX( 1132 )= 1.218075186972d0
       LX( 1133 )= 1.218658807797d0
       LX( 1134 )= 1.219244224082d0
       LX( 1135 )= 1.219831443394d0
       LX( 1136 )= 1.220420473342d0
       LX( 1137 )= 1.221011321577d0
       LX( 1138 )= 1.221603995794d0
       LX( 1139 )= 1.222198503730d0
       LX( 1140 )= 1.222794853165d0
       LX( 1141 )= 1.223393051924d0
       LX( 1142 )= 1.223993107876d0
       LX( 1143 )= 1.224595028933d0
       LX( 1144 )= 1.225198823053d0
       LX( 1145 )= 1.225804498237d0
       LX( 1146 )= 1.226412062534d0
       LX( 1147 )= 1.227021524036d0
       LX( 1148 )= 1.227632890882d0
       LX( 1149 )= 1.228246171257d0
       LX( 1150 )= 1.228861373393d0
       LX( 1151 )= 1.229478505568d0
       LX( 1152 )= 1.230097576108d0
       LX( 1153 )= 1.230718593386d0
       LX( 1154 )= 1.231341565824d0
       LX( 1155 )= 1.231966501889d0
       LX( 1156 )= 1.232593410100d0
       LX( 1157 )= 1.233222299024d0
       LX( 1158 )= 1.233853177277d0
       LX( 1159 )= 1.234486053523d0
       LX( 1160 )= 1.235120936478d0
       LX( 1161 )= 1.235757834908d0
       LX( 1162 )= 1.236396757629d0
       LX( 1163 )= 1.237037713508d0
       LX( 1164 )= 1.237680711464d0
       LX( 1165 )= 1.238325760468d0
       LX( 1166 )= 1.238972869541d0
       LX( 1167 )= 1.239622047759d0
       LX( 1168 )= 1.240273304249d0
       LX( 1169 )= 1.240926648194d0
       LX( 1170 )= 1.241582088827d0
       LX( 1171 )= 1.242239635437d0
       LX( 1172 )= 1.242899297368d0
       LX( 1173 )= 1.243561084018d0
       LX( 1174 )= 1.244225004840d0
       LX( 1175 )= 1.244891069343d0
       LX( 1176 )= 1.245559287092d0
       LX( 1177 )= 1.246229667707d0
       LX( 1178 )= 1.246902220868d0
       LX( 1179 )= 1.247576956311d0
       LX( 1180 )= 1.248253883827d0
       LX( 1181 )= 1.248933013268d0
       LX( 1182 )= 1.249614354545d0
       LX( 1183 )= 1.250297917625d0
       LX( 1184 )= 1.250983712538d0
       LX( 1185 )= 1.251671749370d0
       LX( 1186 )= 1.252362038272d0
       LX( 1187 )= 1.253054589450d0
       LX( 1188 )= 1.253749413177d0
       LX( 1189 )= 1.254446519783d0
       LX( 1190 )= 1.255145919663d0
       LX( 1191 )= 1.255847623273d0
       LX( 1192 )= 1.256551641133d0
       LX( 1193 )= 1.257257983827d0
       LX( 1194 )= 1.257966662000d0
       LX( 1195 )= 1.258677686364d0
       LX( 1196 )= 1.259391067697d0
       LX( 1197 )= 1.260106816839d0
       LX( 1198 )= 1.260824944700d0
       LX( 1199 )= 1.261545462252d0
       LX( 1200 )= 1.262268380538d0
       LX( 1201 )= 1.262993710665d0

       TAB( 1 )= 2.000000000000d0
       TAB( 2 )= 1.999000000000d0
       TAB( 3 )= 1.998000000000d0
       TAB( 4 )= 1.997000000000d0
       TAB( 5 )= 1.996000000000d0
       TAB( 6 )= 1.995000000000d0
       TAB( 7 )= 1.994000000000d0
       TAB( 8 )= 1.993000000000d0
       TAB( 9 )= 1.992000000000d0
       TAB( 10 )= 1.991000000000d0
       TAB( 11 )= 1.990000000000d0
       TAB( 12 )= 1.989000000000d0
       TAB( 13 )= 1.988000000000d0
       TAB( 14 )= 1.987000000000d0
       TAB( 15 )= 1.986000000000d0
       TAB( 16 )= 1.985000000000d0
       TAB( 17 )= 1.984000000000d0
       TAB( 18 )= 1.983000000000d0
       TAB( 19 )= 1.982000000000d0
       TAB( 20 )= 1.981000000000d0
       TAB( 21 )= 1.980000000000d0
       TAB( 22 )= 1.979000000000d0
       TAB( 23 )= 1.978000000000d0
       TAB( 24 )= 1.977000000000d0
       TAB( 25 )= 1.976000000000d0
       TAB( 26 )= 1.975000000000d0
       TAB( 27 )= 1.974000000000d0
       TAB( 28 )= 1.973000000000d0
       TAB( 29 )= 1.972000000000d0
       TAB( 30 )= 1.971000000000d0
       TAB( 31 )= 1.970000000000d0
       TAB( 32 )= 1.969000000000d0
       TAB( 33 )= 1.968000000000d0
       TAB( 34 )= 1.967000000000d0
       TAB( 35 )= 1.966000000000d0
       TAB( 36 )= 1.965000000000d0
       TAB( 37 )= 1.964000000000d0
       TAB( 38 )= 1.963000000000d0
       TAB( 39 )= 1.962000000000d0
       TAB( 40 )= 1.961000000000d0
       TAB( 41 )= 1.960000000000d0
       TAB( 42 )= 1.959000000000d0
       TAB( 43 )= 1.958000000000d0
       TAB( 44 )= 1.957000000000d0
       TAB( 45 )= 1.956000000000d0
       TAB( 46 )= 1.955000000000d0
       TAB( 47 )= 1.954000000000d0
       TAB( 48 )= 1.953000000000d0
       TAB( 49 )= 1.952000000000d0
       TAB( 50 )= 1.951000000000d0
       TAB( 51 )= 1.950000000000d0
       TAB( 52 )= 1.949000000000d0
       TAB( 53 )= 1.948000000000d0
       TAB( 54 )= 1.947000000000d0
       TAB( 55 )= 1.946000000000d0
       TAB( 56 )= 1.945000000000d0
       TAB( 57 )= 1.944000000000d0
       TAB( 58 )= 1.943000000000d0
       TAB( 59 )= 1.942000000000d0
       TAB( 60 )= 1.941000000000d0
       TAB( 61 )= 1.940000000000d0
       TAB( 62 )= 1.939000000000d0
       TAB( 63 )= 1.938000000000d0
       TAB( 64 )= 1.937000000000d0
       TAB( 65 )= 1.936000000000d0
       TAB( 66 )= 1.935000000000d0
       TAB( 67 )= 1.934000000000d0
       TAB( 68 )= 1.933000000000d0
       TAB( 69 )= 1.932000000000d0
       TAB( 70 )= 1.931000000000d0
       TAB( 71 )= 1.930000000000d0
       TAB( 72 )= 1.929000000000d0
       TAB( 73 )= 1.928000000000d0
       TAB( 74 )= 1.927000000000d0
       TAB( 75 )= 1.926000000000d0
       TAB( 76 )= 1.925000000000d0
       TAB( 77 )= 1.924000000000d0
       TAB( 78 )= 1.923000000000d0
       TAB( 79 )= 1.922000000000d0
       TAB( 80 )= 1.921000000000d0
       TAB( 81 )= 1.920000000000d0
       TAB( 82 )= 1.919000000000d0
       TAB( 83 )= 1.918000000000d0
       TAB( 84 )= 1.917000000000d0
       TAB( 85 )= 1.916000000000d0
       TAB( 86 )= 1.915000000000d0
       TAB( 87 )= 1.914000000000d0
       TAB( 88 )= 1.913000000000d0
       TAB( 89 )= 1.912000000000d0
       TAB( 90 )= 1.911000000000d0
       TAB( 91 )= 1.910000000000d0
       TAB( 92 )= 1.909000000000d0
       TAB( 93 )= 1.908000000000d0
       TAB( 94 )= 1.907000000000d0
       TAB( 95 )= 1.906000000000d0
       TAB( 96 )= 1.905000000000d0
       TAB( 97 )= 1.904000000000d0
       TAB( 98 )= 1.903000000000d0
       TAB( 99 )= 1.902000000000d0
       TAB( 100 )= 1.901000000000d0
       TAB( 101 )= 1.900000000000d0
       TAB( 102 )= 1.899000000000d0
       TAB( 103 )= 1.898000000000d0
       TAB( 104 )= 1.897000000000d0
       TAB( 105 )= 1.896000000000d0
       TAB( 106 )= 1.895000000000d0
       TAB( 107 )= 1.894000000000d0
       TAB( 108 )= 1.893000000000d0
       TAB( 109 )= 1.892000000000d0
       TAB( 110 )= 1.891000000000d0
       TAB( 111 )= 1.890000000000d0
       TAB( 112 )= 1.889000000000d0
       TAB( 113 )= 1.888000000000d0
       TAB( 114 )= 1.887000000000d0
       TAB( 115 )= 1.886000000000d0
       TAB( 116 )= 1.885000000000d0
       TAB( 117 )= 1.884000000000d0
       TAB( 118 )= 1.883000000000d0
       TAB( 119 )= 1.882000000000d0
       TAB( 120 )= 1.881000000000d0
       TAB( 121 )= 1.880000000000d0
       TAB( 122 )= 1.879000000000d0
       TAB( 123 )= 1.878000000000d0
       TAB( 124 )= 1.877000000000d0
       TAB( 125 )= 1.876000000000d0
       TAB( 126 )= 1.875000000000d0
       TAB( 127 )= 1.874000000000d0
       TAB( 128 )= 1.873000000000d0
       TAB( 129 )= 1.872000000000d0
       TAB( 130 )= 1.871000000000d0
       TAB( 131 )= 1.870000000000d0
       TAB( 132 )= 1.869000000000d0
       TAB( 133 )= 1.868000000000d0
       TAB( 134 )= 1.867000000000d0
       TAB( 135 )= 1.866000000000d0
       TAB( 136 )= 1.865000000000d0
       TAB( 137 )= 1.864000000000d0
       TAB( 138 )= 1.863000000000d0
       TAB( 139 )= 1.862000000000d0
       TAB( 140 )= 1.861000000000d0
       TAB( 141 )= 1.860000000000d0
       TAB( 142 )= 1.859000000000d0
       TAB( 143 )= 1.858000000000d0
       TAB( 144 )= 1.857000000000d0
       TAB( 145 )= 1.856000000000d0
       TAB( 146 )= 1.855000000000d0
       TAB( 147 )= 1.854000000000d0
       TAB( 148 )= 1.853000000000d0
       TAB( 149 )= 1.852000000000d0
       TAB( 150 )= 1.851000000000d0
       TAB( 151 )= 1.850000000000d0
       TAB( 152 )= 1.849000000000d0
       TAB( 153 )= 1.848000000000d0
       TAB( 154 )= 1.847000000000d0
       TAB( 155 )= 1.846000000000d0
       TAB( 156 )= 1.845000000000d0
       TAB( 157 )= 1.844000000000d0
       TAB( 158 )= 1.843000000000d0
       TAB( 159 )= 1.842000000000d0
       TAB( 160 )= 1.841000000000d0
       TAB( 161 )= 1.840000000000d0
       TAB( 162 )= 1.839000000000d0
       TAB( 163 )= 1.838000000000d0
       TAB( 164 )= 1.837000000000d0
       TAB( 165 )= 1.836000000000d0
       TAB( 166 )= 1.835000000000d0
       TAB( 167 )= 1.834000000000d0
       TAB( 168 )= 1.833000000000d0
       TAB( 169 )= 1.832000000000d0
       TAB( 170 )= 1.831000000000d0
       TAB( 171 )= 1.830000000000d0
       TAB( 172 )= 1.829000000000d0
       TAB( 173 )= 1.828000000000d0
       TAB( 174 )= 1.827000000000d0
       TAB( 175 )= 1.826000000000d0
       TAB( 176 )= 1.825000000000d0
       TAB( 177 )= 1.824000000000d0
       TAB( 178 )= 1.823000000000d0
       TAB( 179 )= 1.822000000000d0
       TAB( 180 )= 1.821000000000d0
       TAB( 181 )= 1.820000000000d0
       TAB( 182 )= 1.819000000000d0
       TAB( 183 )= 1.818000000000d0
       TAB( 184 )= 1.817000000000d0
       TAB( 185 )= 1.816000000000d0
       TAB( 186 )= 1.815000000000d0
       TAB( 187 )= 1.814000000000d0
       TAB( 188 )= 1.813000000000d0
       TAB( 189 )= 1.812000000000d0
       TAB( 190 )= 1.811000000000d0
       TAB( 191 )= 1.810000000000d0
       TAB( 192 )= 1.809000000000d0
       TAB( 193 )= 1.808000000000d0
       TAB( 194 )= 1.807000000000d0
       TAB( 195 )= 1.806000000000d0
       TAB( 196 )= 1.805000000000d0
       TAB( 197 )= 1.804000000000d0
       TAB( 198 )= 1.803000000000d0
       TAB( 199 )= 1.802000000000d0
       TAB( 200 )= 1.801000000000d0
       TAB( 201 )= 1.800000000000d0
       TAB( 202 )= 1.799000000000d0
       TAB( 203 )= 1.798000000000d0
       TAB( 204 )= 1.797000000000d0
       TAB( 205 )= 1.796000000000d0
       TAB( 206 )= 1.795000000000d0
       TAB( 207 )= 1.794000000000d0
       TAB( 208 )= 1.793000000000d0
       TAB( 209 )= 1.792000000000d0
       TAB( 210 )= 1.791000000000d0
       TAB( 211 )= 1.790000000000d0
       TAB( 212 )= 1.789000000000d0
       TAB( 213 )= 1.788000000000d0
       TAB( 214 )= 1.787000000000d0
       TAB( 215 )= 1.786000000000d0
       TAB( 216 )= 1.785000000000d0
       TAB( 217 )= 1.784000000000d0
       TAB( 218 )= 1.783000000000d0
       TAB( 219 )= 1.782000000000d0
       TAB( 220 )= 1.781000000000d0
       TAB( 221 )= 1.780000000000d0
       TAB( 222 )= 1.779000000000d0
       TAB( 223 )= 1.778000000000d0
       TAB( 224 )= 1.777000000000d0
       TAB( 225 )= 1.776000000000d0
       TAB( 226 )= 1.775000000000d0
       TAB( 227 )= 1.774000000000d0
       TAB( 228 )= 1.773000000000d0
       TAB( 229 )= 1.772000000000d0
       TAB( 230 )= 1.771000000000d0
       TAB( 231 )= 1.770000000000d0
       TAB( 232 )= 1.769000000000d0
       TAB( 233 )= 1.768000000000d0
       TAB( 234 )= 1.767000000000d0
       TAB( 235 )= 1.766000000000d0
       TAB( 236 )= 1.765000000000d0
       TAB( 237 )= 1.764000000000d0
       TAB( 238 )= 1.763000000000d0
       TAB( 239 )= 1.762000000000d0
       TAB( 240 )= 1.761000000000d0
       TAB( 241 )= 1.760000000000d0
       TAB( 242 )= 1.759000000000d0
       TAB( 243 )= 1.758000000000d0
       TAB( 244 )= 1.757000000000d0
       TAB( 245 )= 1.756000000000d0
       TAB( 246 )= 1.755000000000d0
       TAB( 247 )= 1.754000000000d0
       TAB( 248 )= 1.753000000000d0
       TAB( 249 )= 1.752000000000d0
       TAB( 250 )= 1.751000000000d0
       TAB( 251 )= 1.750000000000d0
       TAB( 252 )= 1.749000000000d0
       TAB( 253 )= 1.748000000000d0
       TAB( 254 )= 1.747000000000d0
       TAB( 255 )= 1.746000000000d0
       TAB( 256 )= 1.745000000000d0
       TAB( 257 )= 1.744000000000d0
       TAB( 258 )= 1.743000000000d0
       TAB( 259 )= 1.742000000000d0
       TAB( 260 )= 1.741000000000d0
       TAB( 261 )= 1.740000000000d0
       TAB( 262 )= 1.739000000000d0
       TAB( 263 )= 1.738000000000d0
       TAB( 264 )= 1.737000000000d0
       TAB( 265 )= 1.736000000000d0
       TAB( 266 )= 1.735000000000d0
       TAB( 267 )= 1.734000000000d0
       TAB( 268 )= 1.733000000000d0
       TAB( 269 )= 1.732000000000d0
       TAB( 270 )= 1.731000000000d0
       TAB( 271 )= 1.730000000000d0
       TAB( 272 )= 1.729000000000d0
       TAB( 273 )= 1.728000000000d0
       TAB( 274 )= 1.727000000000d0
       TAB( 275 )= 1.726000000000d0
       TAB( 276 )= 1.725000000000d0
       TAB( 277 )= 1.724000000000d0
       TAB( 278 )= 1.723000000000d0
       TAB( 279 )= 1.722000000000d0
       TAB( 280 )= 1.721000000000d0
       TAB( 281 )= 1.720000000000d0
       TAB( 282 )= 1.719000000000d0
       TAB( 283 )= 1.718000000000d0
       TAB( 284 )= 1.717000000000d0
       TAB( 285 )= 1.716000000000d0
       TAB( 286 )= 1.715000000000d0
       TAB( 287 )= 1.714000000000d0
       TAB( 288 )= 1.713000000000d0
       TAB( 289 )= 1.712000000000d0
       TAB( 290 )= 1.711000000000d0
       TAB( 291 )= 1.710000000000d0
       TAB( 292 )= 1.709000000000d0
       TAB( 293 )= 1.708000000000d0
       TAB( 294 )= 1.707000000000d0
       TAB( 295 )= 1.706000000000d0
       TAB( 296 )= 1.705000000000d0
       TAB( 297 )= 1.704000000000d0
       TAB( 298 )= 1.703000000000d0
       TAB( 299 )= 1.702000000000d0
       TAB( 300 )= 1.701000000000d0
       TAB( 301 )= 1.700000000000d0
       TAB( 302 )= 1.699000000000d0
       TAB( 303 )= 1.698000000000d0
       TAB( 304 )= 1.697000000000d0
       TAB( 305 )= 1.696000000000d0
       TAB( 306 )= 1.695000000000d0
       TAB( 307 )= 1.694000000000d0
       TAB( 308 )= 1.693000000000d0
       TAB( 309 )= 1.692000000000d0
       TAB( 310 )= 1.691000000000d0
       TAB( 311 )= 1.690000000000d0
       TAB( 312 )= 1.689000000000d0
       TAB( 313 )= 1.688000000000d0
       TAB( 314 )= 1.687000000000d0
       TAB( 315 )= 1.686000000000d0
       TAB( 316 )= 1.685000000000d0
       TAB( 317 )= 1.684000000000d0
       TAB( 318 )= 1.683000000000d0
       TAB( 319 )= 1.682000000000d0
       TAB( 320 )= 1.681000000000d0
       TAB( 321 )= 1.680000000000d0
       TAB( 322 )= 1.679000000000d0
       TAB( 323 )= 1.678000000000d0
       TAB( 324 )= 1.677000000000d0
       TAB( 325 )= 1.676000000000d0
       TAB( 326 )= 1.675000000000d0
       TAB( 327 )= 1.674000000000d0
       TAB( 328 )= 1.673000000000d0
       TAB( 329 )= 1.672000000000d0
       TAB( 330 )= 1.671000000000d0
       TAB( 331 )= 1.670000000000d0
       TAB( 332 )= 1.669000000000d0
       TAB( 333 )= 1.668000000000d0
       TAB( 334 )= 1.667000000000d0
       TAB( 335 )= 1.666000000000d0
       TAB( 336 )= 1.665000000000d0
       TAB( 337 )= 1.664000000000d0
       TAB( 338 )= 1.663000000000d0
       TAB( 339 )= 1.662000000000d0
       TAB( 340 )= 1.661000000000d0
       TAB( 341 )= 1.660000000000d0
       TAB( 342 )= 1.659000000000d0
       TAB( 343 )= 1.658000000000d0
       TAB( 344 )= 1.657000000000d0
       TAB( 345 )= 1.656000000000d0
       TAB( 346 )= 1.655000000000d0
       TAB( 347 )= 1.654000000000d0
       TAB( 348 )= 1.653000000000d0
       TAB( 349 )= 1.652000000000d0
       TAB( 350 )= 1.651000000000d0
       TAB( 351 )= 1.650000000000d0
       TAB( 352 )= 1.649000000000d0
       TAB( 353 )= 1.648000000000d0
       TAB( 354 )= 1.647000000000d0
       TAB( 355 )= 1.646000000000d0
       TAB( 356 )= 1.645000000000d0
       TAB( 357 )= 1.644000000000d0
       TAB( 358 )= 1.643000000000d0
       TAB( 359 )= 1.642000000000d0
       TAB( 360 )= 1.641000000000d0
       TAB( 361 )= 1.640000000000d0
       TAB( 362 )= 1.639000000000d0
       TAB( 363 )= 1.638000000000d0
       TAB( 364 )= 1.637000000000d0
       TAB( 365 )= 1.636000000000d0
       TAB( 366 )= 1.635000000000d0
       TAB( 367 )= 1.634000000000d0
       TAB( 368 )= 1.633000000000d0
       TAB( 369 )= 1.632000000000d0
       TAB( 370 )= 1.631000000000d0
       TAB( 371 )= 1.630000000000d0
       TAB( 372 )= 1.629000000000d0
       TAB( 373 )= 1.628000000000d0
       TAB( 374 )= 1.627000000000d0
       TAB( 375 )= 1.626000000000d0
       TAB( 376 )= 1.625000000000d0
       TAB( 377 )= 1.624000000000d0
       TAB( 378 )= 1.623000000000d0
       TAB( 379 )= 1.622000000000d0
       TAB( 380 )= 1.621000000000d0
       TAB( 381 )= 1.620000000000d0
       TAB( 382 )= 1.619000000000d0
       TAB( 383 )= 1.618000000000d0
       TAB( 384 )= 1.617000000000d0
       TAB( 385 )= 1.616000000000d0
       TAB( 386 )= 1.615000000000d0
       TAB( 387 )= 1.614000000000d0
       TAB( 388 )= 1.613000000000d0
       TAB( 389 )= 1.612000000000d0
       TAB( 390 )= 1.611000000000d0
       TAB( 391 )= 1.610000000000d0
       TAB( 392 )= 1.609000000000d0
       TAB( 393 )= 1.608000000000d0
       TAB( 394 )= 1.607000000000d0
       TAB( 395 )= 1.606000000000d0
       TAB( 396 )= 1.605000000000d0
       TAB( 397 )= 1.604000000000d0
       TAB( 398 )= 1.603000000000d0
       TAB( 399 )= 1.602000000000d0
       TAB( 400 )= 1.601000000000d0
       TAB( 401 )= 1.600000000000d0
       TAB( 402 )= 1.599000000000d0
       TAB( 403 )= 1.598000000000d0
       TAB( 404 )= 1.597000000000d0
       TAB( 405 )= 1.596000000000d0
       TAB( 406 )= 1.595000000000d0
       TAB( 407 )= 1.594000000000d0
       TAB( 408 )= 1.593000000000d0
       TAB( 409 )= 1.592000000000d0
       TAB( 410 )= 1.591000000000d0
       TAB( 411 )= 1.590000000000d0
       TAB( 412 )= 1.589000000000d0
       TAB( 413 )= 1.588000000000d0
       TAB( 414 )= 1.587000000000d0
       TAB( 415 )= 1.586000000000d0
       TAB( 416 )= 1.585000000000d0
       TAB( 417 )= 1.584000000000d0
       TAB( 418 )= 1.583000000000d0
       TAB( 419 )= 1.582000000000d0
       TAB( 420 )= 1.581000000000d0
       TAB( 421 )= 1.580000000000d0
       TAB( 422 )= 1.579000000000d0
       TAB( 423 )= 1.578000000000d0
       TAB( 424 )= 1.577000000000d0
       TAB( 425 )= 1.576000000000d0
       TAB( 426 )= 1.575000000000d0
       TAB( 427 )= 1.574000000000d0
       TAB( 428 )= 1.573000000000d0
       TAB( 429 )= 1.572000000000d0
       TAB( 430 )= 1.571000000000d0
       TAB( 431 )= 1.570000000000d0
       TAB( 432 )= 1.569000000000d0
       TAB( 433 )= 1.568000000000d0
       TAB( 434 )= 1.567000000000d0
       TAB( 435 )= 1.566000000000d0
       TAB( 436 )= 1.565000000000d0
       TAB( 437 )= 1.564000000000d0
       TAB( 438 )= 1.563000000000d0
       TAB( 439 )= 1.562000000000d0
       TAB( 440 )= 1.561000000000d0
       TAB( 441 )= 1.560000000000d0
       TAB( 442 )= 1.559000000000d0
       TAB( 443 )= 1.558000000000d0
       TAB( 444 )= 1.557000000000d0
       TAB( 445 )= 1.556000000000d0
       TAB( 446 )= 1.555000000000d0
       TAB( 447 )= 1.554000000000d0
       TAB( 448 )= 1.553000000000d0
       TAB( 449 )= 1.552000000000d0
       TAB( 450 )= 1.551000000000d0
       TAB( 451 )= 1.550000000000d0
       TAB( 452 )= 1.549000000000d0
       TAB( 453 )= 1.548000000000d0
       TAB( 454 )= 1.547000000000d0
       TAB( 455 )= 1.546000000000d0
       TAB( 456 )= 1.545000000000d0
       TAB( 457 )= 1.544000000000d0
       TAB( 458 )= 1.543000000000d0
       TAB( 459 )= 1.542000000000d0
       TAB( 460 )= 1.541000000000d0
       TAB( 461 )= 1.540000000000d0
       TAB( 462 )= 1.539000000000d0
       TAB( 463 )= 1.538000000000d0
       TAB( 464 )= 1.537000000000d0
       TAB( 465 )= 1.536000000000d0
       TAB( 466 )= 1.535000000000d0
       TAB( 467 )= 1.534000000000d0
       TAB( 468 )= 1.533000000000d0
       TAB( 469 )= 1.532000000000d0
       TAB( 470 )= 1.531000000000d0
       TAB( 471 )= 1.530000000000d0
       TAB( 472 )= 1.529000000000d0
       TAB( 473 )= 1.528000000000d0
       TAB( 474 )= 1.527000000000d0
       TAB( 475 )= 1.526000000000d0
       TAB( 476 )= 1.525000000000d0
       TAB( 477 )= 1.524000000000d0
       TAB( 478 )= 1.523000000000d0
       TAB( 479 )= 1.522000000000d0
       TAB( 480 )= 1.521000000000d0
       TAB( 481 )= 1.520000000000d0
       TAB( 482 )= 1.519000000000d0
       TAB( 483 )= 1.518000000000d0
       TAB( 484 )= 1.517000000000d0
       TAB( 485 )= 1.516000000000d0
       TAB( 486 )= 1.515000000000d0
       TAB( 487 )= 1.514000000000d0
       TAB( 488 )= 1.513000000000d0
       TAB( 489 )= 1.512000000000d0
       TAB( 490 )= 1.511000000000d0
       TAB( 491 )= 1.510000000000d0
       TAB( 492 )= 1.509000000000d0
       TAB( 493 )= 1.508000000000d0
       TAB( 494 )= 1.507000000000d0
       TAB( 495 )= 1.506000000000d0
       TAB( 496 )= 1.505000000000d0
       TAB( 497 )= 1.504000000000d0
       TAB( 498 )= 1.503000000000d0
       TAB( 499 )= 1.502000000000d0
       TAB( 500 )= 1.501000000000d0
       TAB( 501 )= 1.500000000000d0
       TAB( 502 )= 1.499000000000d0
       TAB( 503 )= 1.498000000000d0
       TAB( 504 )= 1.497000000000d0
       TAB( 505 )= 1.496000000000d0
       TAB( 506 )= 1.495000000000d0
       TAB( 507 )= 1.494000000000d0
       TAB( 508 )= 1.493000000000d0
       TAB( 509 )= 1.492000000000d0
       TAB( 510 )= 1.491000000000d0
       TAB( 511 )= 1.490000000000d0
       TAB( 512 )= 1.489000000000d0
       TAB( 513 )= 1.488000000000d0
       TAB( 514 )= 1.487000000000d0
       TAB( 515 )= 1.486000000000d0
       TAB( 516 )= 1.485000000000d0
       TAB( 517 )= 1.484000000000d0
       TAB( 518 )= 1.483000000000d0
       TAB( 519 )= 1.482000000000d0
       TAB( 520 )= 1.481000000000d0
       TAB( 521 )= 1.480000000000d0
       TAB( 522 )= 1.479000000000d0
       TAB( 523 )= 1.478000000000d0
       TAB( 524 )= 1.477000000000d0
       TAB( 525 )= 1.476000000000d0
       TAB( 526 )= 1.475000000000d0
       TAB( 527 )= 1.474000000000d0
       TAB( 528 )= 1.473000000000d0
       TAB( 529 )= 1.472000000000d0
       TAB( 530 )= 1.471000000000d0
       TAB( 531 )= 1.470000000000d0
       TAB( 532 )= 1.469000000000d0
       TAB( 533 )= 1.468000000000d0
       TAB( 534 )= 1.467000000000d0
       TAB( 535 )= 1.466000000000d0
       TAB( 536 )= 1.465000000000d0
       TAB( 537 )= 1.464000000000d0
       TAB( 538 )= 1.463000000000d0
       TAB( 539 )= 1.462000000000d0
       TAB( 540 )= 1.461000000000d0
       TAB( 541 )= 1.460000000000d0
       TAB( 542 )= 1.459000000000d0
       TAB( 543 )= 1.458000000000d0
       TAB( 544 )= 1.457000000000d0
       TAB( 545 )= 1.456000000000d0
       TAB( 546 )= 1.455000000000d0
       TAB( 547 )= 1.454000000000d0
       TAB( 548 )= 1.453000000000d0
       TAB( 549 )= 1.452000000000d0
       TAB( 550 )= 1.451000000000d0
       TAB( 551 )= 1.450000000000d0
       TAB( 552 )= 1.449000000000d0
       TAB( 553 )= 1.448000000000d0
       TAB( 554 )= 1.447000000000d0
       TAB( 555 )= 1.446000000000d0
       TAB( 556 )= 1.445000000000d0
       TAB( 557 )= 1.444000000000d0
       TAB( 558 )= 1.443000000000d0
       TAB( 559 )= 1.442000000000d0
       TAB( 560 )= 1.441000000000d0
       TAB( 561 )= 1.440000000000d0
       TAB( 562 )= 1.439000000000d0
       TAB( 563 )= 1.438000000000d0
       TAB( 564 )= 1.437000000000d0
       TAB( 565 )= 1.436000000000d0
       TAB( 566 )= 1.435000000000d0
       TAB( 567 )= 1.434000000000d0
       TAB( 568 )= 1.433000000000d0
       TAB( 569 )= 1.432000000000d0
       TAB( 570 )= 1.431000000000d0
       TAB( 571 )= 1.430000000000d0
       TAB( 572 )= 1.429000000000d0
       TAB( 573 )= 1.428000000000d0
       TAB( 574 )= 1.427000000000d0
       TAB( 575 )= 1.426000000000d0
       TAB( 576 )= 1.425000000000d0
       TAB( 577 )= 1.424000000000d0
       TAB( 578 )= 1.423000000000d0
       TAB( 579 )= 1.422000000000d0
       TAB( 580 )= 1.421000000000d0
       TAB( 581 )= 1.420000000000d0
       TAB( 582 )= 1.419000000000d0
       TAB( 583 )= 1.418000000000d0
       TAB( 584 )= 1.417000000000d0
       TAB( 585 )= 1.416000000000d0
       TAB( 586 )= 1.415000000000d0
       TAB( 587 )= 1.414000000000d0
       TAB( 588 )= 1.413000000000d0
       TAB( 589 )= 1.412000000000d0
       TAB( 590 )= 1.411000000000d0
       TAB( 591 )= 1.410000000000d0
       TAB( 592 )= 1.409000000000d0
       TAB( 593 )= 1.408000000000d0
       TAB( 594 )= 1.407000000000d0
       TAB( 595 )= 1.406000000000d0
       TAB( 596 )= 1.405000000000d0
       TAB( 597 )= 1.404000000000d0
       TAB( 598 )= 1.403000000000d0
       TAB( 599 )= 1.402000000000d0
       TAB( 600 )= 1.401000000000d0
       TAB( 601 )= 1.400000000000d0
       TAB( 602 )= 1.399000000000d0
       TAB( 603 )= 1.398000000000d0
       TAB( 604 )= 1.397000000000d0
       TAB( 605 )= 1.396000000000d0
       TAB( 606 )= 1.395000000000d0
       TAB( 607 )= 1.394000000000d0
       TAB( 608 )= 1.393000000000d0
       TAB( 609 )= 1.392000000000d0
       TAB( 610 )= 1.391000000000d0
       TAB( 611 )= 1.390000000000d0
       TAB( 612 )= 1.389000000000d0
       TAB( 613 )= 1.388000000000d0
       TAB( 614 )= 1.387000000000d0
       TAB( 615 )= 1.386000000000d0
       TAB( 616 )= 1.385000000000d0
       TAB( 617 )= 1.384000000000d0
       TAB( 618 )= 1.383000000000d0
       TAB( 619 )= 1.382000000000d0
       TAB( 620 )= 1.381000000000d0
       TAB( 621 )= 1.380000000000d0
       TAB( 622 )= 1.379000000000d0
       TAB( 623 )= 1.378000000000d0
       TAB( 624 )= 1.377000000000d0
       TAB( 625 )= 1.376000000000d0
       TAB( 626 )= 1.375000000000d0
       TAB( 627 )= 1.374000000000d0
       TAB( 628 )= 1.373000000000d0
       TAB( 629 )= 1.372000000000d0
       TAB( 630 )= 1.371000000000d0
       TAB( 631 )= 1.370000000000d0
       TAB( 632 )= 1.369000000000d0
       TAB( 633 )= 1.368000000000d0
       TAB( 634 )= 1.367000000000d0
       TAB( 635 )= 1.366000000000d0
       TAB( 636 )= 1.365000000000d0
       TAB( 637 )= 1.364000000000d0
       TAB( 638 )= 1.363000000000d0
       TAB( 639 )= 1.362000000000d0
       TAB( 640 )= 1.361000000000d0
       TAB( 641 )= 1.360000000000d0
       TAB( 642 )= 1.359000000000d0
       TAB( 643 )= 1.358000000000d0
       TAB( 644 )= 1.357000000000d0
       TAB( 645 )= 1.356000000000d0
       TAB( 646 )= 1.355000000000d0
       TAB( 647 )= 1.354000000000d0
       TAB( 648 )= 1.353000000000d0
       TAB( 649 )= 1.352000000000d0
       TAB( 650 )= 1.351000000000d0
       TAB( 651 )= 1.350000000000d0
       TAB( 652 )= 1.349000000000d0
       TAB( 653 )= 1.348000000000d0
       TAB( 654 )= 1.347000000000d0
       TAB( 655 )= 1.346000000000d0
       TAB( 656 )= 1.345000000000d0
       TAB( 657 )= 1.344000000000d0
       TAB( 658 )= 1.343000000000d0
       TAB( 659 )= 1.342000000000d0
       TAB( 660 )= 1.341000000000d0
       TAB( 661 )= 1.340000000000d0
       TAB( 662 )= 1.339000000000d0
       TAB( 663 )= 1.338000000000d0
       TAB( 664 )= 1.337000000000d0
       TAB( 665 )= 1.336000000000d0
       TAB( 666 )= 1.335000000000d0
       TAB( 667 )= 1.334000000000d0
       TAB( 668 )= 1.333000000000d0
       TAB( 669 )= 1.332000000000d0
       TAB( 670 )= 1.331000000000d0
       TAB( 671 )= 1.330000000000d0
       TAB( 672 )= 1.329000000000d0
       TAB( 673 )= 1.328000000000d0
       TAB( 674 )= 1.327000000000d0
       TAB( 675 )= 1.326000000000d0
       TAB( 676 )= 1.325000000000d0
       TAB( 677 )= 1.324000000000d0
       TAB( 678 )= 1.323000000000d0
       TAB( 679 )= 1.322000000000d0
       TAB( 680 )= 1.321000000000d0
       TAB( 681 )= 1.320000000000d0
       TAB( 682 )= 1.319000000000d0
       TAB( 683 )= 1.318000000000d0
       TAB( 684 )= 1.317000000000d0
       TAB( 685 )= 1.316000000000d0
       TAB( 686 )= 1.315000000000d0
       TAB( 687 )= 1.314000000000d0
       TAB( 688 )= 1.313000000000d0
       TAB( 689 )= 1.312000000000d0
       TAB( 690 )= 1.311000000000d0
       TAB( 691 )= 1.310000000000d0
       TAB( 692 )= 1.309000000000d0
       TAB( 693 )= 1.308000000000d0
       TAB( 694 )= 1.307000000000d0
       TAB( 695 )= 1.306000000000d0
       TAB( 696 )= 1.305000000000d0
       TAB( 697 )= 1.304000000000d0
       TAB( 698 )= 1.303000000000d0
       TAB( 699 )= 1.302000000000d0
       TAB( 700 )= 1.301000000000d0
       TAB( 701 )= 1.300000000000d0
       TAB( 702 )= 1.299000000000d0
       TAB( 703 )= 1.298000000000d0
       TAB( 704 )= 1.297000000000d0
       TAB( 705 )= 1.296000000000d0
       TAB( 706 )= 1.295000000000d0
       TAB( 707 )= 1.294000000000d0
       TAB( 708 )= 1.293000000000d0
       TAB( 709 )= 1.292000000000d0
       TAB( 710 )= 1.291000000000d0
       TAB( 711 )= 1.290000000000d0
       TAB( 712 )= 1.289000000000d0
       TAB( 713 )= 1.288000000000d0
       TAB( 714 )= 1.287000000000d0
       TAB( 715 )= 1.286000000000d0
       TAB( 716 )= 1.285000000000d0
       TAB( 717 )= 1.284000000000d0
       TAB( 718 )= 1.283000000000d0
       TAB( 719 )= 1.282000000000d0
       TAB( 720 )= 1.281000000000d0
       TAB( 721 )= 1.280000000000d0
       TAB( 722 )= 1.279000000000d0
       TAB( 723 )= 1.278000000000d0
       TAB( 724 )= 1.277000000000d0
       TAB( 725 )= 1.276000000000d0
       TAB( 726 )= 1.275000000000d0
       TAB( 727 )= 1.274000000000d0
       TAB( 728 )= 1.273000000000d0
       TAB( 729 )= 1.272000000000d0
       TAB( 730 )= 1.271000000000d0
       TAB( 731 )= 1.270000000000d0
       TAB( 732 )= 1.269000000000d0
       TAB( 733 )= 1.268000000000d0
       TAB( 734 )= 1.267000000000d0
       TAB( 735 )= 1.266000000000d0
       TAB( 736 )= 1.265000000000d0
       TAB( 737 )= 1.264000000000d0
       TAB( 738 )= 1.263000000000d0
       TAB( 739 )= 1.262000000000d0
       TAB( 740 )= 1.261000000000d0
       TAB( 741 )= 1.260000000000d0
       TAB( 742 )= 1.259000000000d0
       TAB( 743 )= 1.258000000000d0
       TAB( 744 )= 1.257000000000d0
       TAB( 745 )= 1.256000000000d0
       TAB( 746 )= 1.255000000000d0
       TAB( 747 )= 1.254000000000d0
       TAB( 748 )= 1.253000000000d0
       TAB( 749 )= 1.252000000000d0
       TAB( 750 )= 1.251000000000d0
       TAB( 751 )= 1.250000000000d0
       TAB( 752 )= 1.249000000000d0
       TAB( 753 )= 1.248000000000d0
       TAB( 754 )= 1.247000000000d0
       TAB( 755 )= 1.246000000000d0
       TAB( 756 )= 1.245000000000d0
       TAB( 757 )= 1.244000000000d0
       TAB( 758 )= 1.243000000000d0
       TAB( 759 )= 1.242000000000d0
       TAB( 760 )= 1.241000000000d0
       TAB( 761 )= 1.240000000000d0
       TAB( 762 )= 1.239000000000d0
       TAB( 763 )= 1.238000000000d0
       TAB( 764 )= 1.237000000000d0
       TAB( 765 )= 1.236000000000d0
       TAB( 766 )= 1.235000000000d0
       TAB( 767 )= 1.234000000000d0
       TAB( 768 )= 1.233000000000d0
       TAB( 769 )= 1.232000000000d0
       TAB( 770 )= 1.231000000000d0
       TAB( 771 )= 1.230000000000d0
       TAB( 772 )= 1.229000000000d0
       TAB( 773 )= 1.228000000000d0
       TAB( 774 )= 1.227000000000d0
       TAB( 775 )= 1.226000000000d0
       TAB( 776 )= 1.225000000000d0
       TAB( 777 )= 1.224000000000d0
       TAB( 778 )= 1.223000000000d0
       TAB( 779 )= 1.222000000000d0
       TAB( 780 )= 1.221000000000d0
       TAB( 781 )= 1.220000000000d0
       TAB( 782 )= 1.219000000000d0
       TAB( 783 )= 1.218000000000d0
       TAB( 784 )= 1.217000000000d0
       TAB( 785 )= 1.216000000000d0
       TAB( 786 )= 1.215000000000d0
       TAB( 787 )= 1.214000000000d0
       TAB( 788 )= 1.213000000000d0
       TAB( 789 )= 1.212000000000d0
       TAB( 790 )= 1.211000000000d0
       TAB( 791 )= 1.210000000000d0
       TAB( 792 )= 1.209000000000d0
       TAB( 793 )= 1.208000000000d0
       TAB( 794 )= 1.207000000000d0
       TAB( 795 )= 1.206000000000d0
       TAB( 796 )= 1.205000000000d0
       TAB( 797 )= 1.204000000000d0
       TAB( 798 )= 1.203000000000d0
       TAB( 799 )= 1.202000000000d0
       TAB( 800 )= 1.201000000000d0
       TAB( 801 )= 1.200000000000d0
       TAB( 802 )= 1.199000000000d0
       TAB( 803 )= 1.198000000000d0
       TAB( 804 )= 1.197000000000d0
       TAB( 805 )= 1.196000000000d0
       TAB( 806 )= 1.195000000000d0
       TAB( 807 )= 1.194000000000d0
       TAB( 808 )= 1.193000000000d0
       TAB( 809 )= 1.192000000000d0
       TAB( 810 )= 1.191000000000d0
       TAB( 811 )= 1.190000000000d0
       TAB( 812 )= 1.189000000000d0
       TAB( 813 )= 1.188000000000d0
       TAB( 814 )= 1.187000000000d0
       TAB( 815 )= 1.186000000000d0
       TAB( 816 )= 1.185000000000d0
       TAB( 817 )= 1.184000000000d0
       TAB( 818 )= 1.183000000000d0
       TAB( 819 )= 1.182000000000d0
       TAB( 820 )= 1.181000000000d0
       TAB( 821 )= 1.180000000000d0
       TAB( 822 )= 1.179000000000d0
       TAB( 823 )= 1.178000000000d0
       TAB( 824 )= 1.177000000000d0
       TAB( 825 )= 1.176000000000d0
       TAB( 826 )= 1.175000000000d0
       TAB( 827 )= 1.174000000000d0
       TAB( 828 )= 1.173000000000d0
       TAB( 829 )= 1.172000000000d0
       TAB( 830 )= 1.171000000000d0
       TAB( 831 )= 1.170000000000d0
       TAB( 832 )= 1.169000000000d0
       TAB( 833 )= 1.168000000000d0
       TAB( 834 )= 1.167000000000d0
       TAB( 835 )= 1.166000000000d0
       TAB( 836 )= 1.165000000000d0
       TAB( 837 )= 1.164000000000d0
       TAB( 838 )= 1.163000000000d0
       TAB( 839 )= 1.162000000000d0
       TAB( 840 )= 1.161000000000d0
       TAB( 841 )= 1.160000000000d0
       TAB( 842 )= 1.159000000000d0
       TAB( 843 )= 1.158000000000d0
       TAB( 844 )= 1.157000000000d0
       TAB( 845 )= 1.156000000000d0
       TAB( 846 )= 1.155000000000d0
       TAB( 847 )= 1.154000000000d0
       TAB( 848 )= 1.153000000000d0
       TAB( 849 )= 1.152000000000d0
       TAB( 850 )= 1.151000000000d0
       TAB( 851 )= 1.150000000000d0
       TAB( 852 )= 1.149000000000d0
       TAB( 853 )= 1.148000000000d0
       TAB( 854 )= 1.147000000000d0
       TAB( 855 )= 1.146000000000d0
       TAB( 856 )= 1.145000000000d0
       TAB( 857 )= 1.144000000000d0
       TAB( 858 )= 1.143000000000d0
       TAB( 859 )= 1.142000000000d0
       TAB( 860 )= 1.141000000000d0
       TAB( 861 )= 1.140000000000d0
       TAB( 862 )= 1.139000000000d0
       TAB( 863 )= 1.138000000000d0
       TAB( 864 )= 1.137000000000d0
       TAB( 865 )= 1.136000000000d0
       TAB( 866 )= 1.135000000000d0
       TAB( 867 )= 1.134000000000d0
       TAB( 868 )= 1.133000000000d0
       TAB( 869 )= 1.132000000000d0
       TAB( 870 )= 1.131000000000d0
       TAB( 871 )= 1.130000000000d0
       TAB( 872 )= 1.129000000000d0
       TAB( 873 )= 1.128000000000d0
       TAB( 874 )= 1.127000000000d0
       TAB( 875 )= 1.126000000000d0
       TAB( 876 )= 1.125000000000d0
       TAB( 877 )= 1.124000000000d0
       TAB( 878 )= 1.123000000000d0
       TAB( 879 )= 1.122000000000d0
       TAB( 880 )= 1.121000000000d0
       TAB( 881 )= 1.120000000000d0
       TAB( 882 )= 1.119000000000d0
       TAB( 883 )= 1.118000000000d0
       TAB( 884 )= 1.117000000000d0
       TAB( 885 )= 1.116000000000d0
       TAB( 886 )= 1.115000000000d0
       TAB( 887 )= 1.114000000000d0
       TAB( 888 )= 1.113000000000d0
       TAB( 889 )= 1.112000000000d0
       TAB( 890 )= 1.111000000000d0
       TAB( 891 )= 1.110000000000d0
       TAB( 892 )= 1.109000000000d0
       TAB( 893 )= 1.108000000000d0
       TAB( 894 )= 1.107000000000d0
       TAB( 895 )= 1.106000000000d0
       TAB( 896 )= 1.105000000000d0
       TAB( 897 )= 1.104000000000d0
       TAB( 898 )= 1.103000000000d0
       TAB( 899 )= 1.102000000000d0
       TAB( 900 )= 1.101000000000d0
       TAB( 901 )= 1.100000000000d0
       TAB( 902 )= 1.099000000000d0
       TAB( 903 )= 1.098000000000d0
       TAB( 904 )= 1.097000000000d0
       TAB( 905 )= 1.096000000000d0
       TAB( 906 )= 1.095000000000d0
       TAB( 907 )= 1.094000000000d0
       TAB( 908 )= 1.093000000000d0
       TAB( 909 )= 1.092000000000d0
       TAB( 910 )= 1.091000000000d0
       TAB( 911 )= 1.090000000000d0
       TAB( 912 )= 1.089000000000d0
       TAB( 913 )= 1.088000000000d0
       TAB( 914 )= 1.087000000000d0
       TAB( 915 )= 1.086000000000d0
       TAB( 916 )= 1.085000000000d0
       TAB( 917 )= 1.084000000000d0
       TAB( 918 )= 1.083000000000d0
       TAB( 919 )= 1.082000000000d0
       TAB( 920 )= 1.081000000000d0
       TAB( 921 )= 1.080000000000d0
       TAB( 922 )= 1.079000000000d0
       TAB( 923 )= 1.078000000000d0
       TAB( 924 )= 1.077000000000d0
       TAB( 925 )= 1.076000000000d0
       TAB( 926 )= 1.075000000000d0
       TAB( 927 )= 1.074000000000d0
       TAB( 928 )= 1.073000000000d0
       TAB( 929 )= 1.072000000000d0
       TAB( 930 )= 1.071000000000d0
       TAB( 931 )= 1.070000000000d0
       TAB( 932 )= 1.069000000000d0
       TAB( 933 )= 1.068000000000d0
       TAB( 934 )= 1.067000000000d0
       TAB( 935 )= 1.066000000000d0
       TAB( 936 )= 1.065000000000d0
       TAB( 937 )= 1.064000000000d0
       TAB( 938 )= 1.063000000000d0
       TAB( 939 )= 1.062000000000d0
       TAB( 940 )= 1.061000000000d0
       TAB( 941 )= 1.060000000000d0
       TAB( 942 )= 1.059000000000d0
       TAB( 943 )= 1.058000000000d0
       TAB( 944 )= 1.057000000000d0
       TAB( 945 )= 1.056000000000d0
       TAB( 946 )= 1.055000000000d0
       TAB( 947 )= 1.054000000000d0
       TAB( 948 )= 1.053000000000d0
       TAB( 949 )= 1.052000000000d0
       TAB( 950 )= 1.051000000000d0
       TAB( 951 )= 1.050000000000d0
       TAB( 952 )= 1.049000000000d0
       TAB( 953 )= 1.048000000000d0
       TAB( 954 )= 1.047000000000d0
       TAB( 955 )= 1.046000000000d0
       TAB( 956 )= 1.045000000000d0
       TAB( 957 )= 1.044000000000d0
       TAB( 958 )= 1.043000000000d0
       TAB( 959 )= 1.042000000000d0
       TAB( 960 )= 1.041000000000d0
       TAB( 961 )= 1.040000000000d0
       TAB( 962 )= 1.039000000000d0
       TAB( 963 )= 1.038000000000d0
       TAB( 964 )= 1.037000000000d0
       TAB( 965 )= 1.036000000000d0
       TAB( 966 )= 1.035000000000d0
       TAB( 967 )= 1.034000000000d0
       TAB( 968 )= 1.033000000000d0
       TAB( 969 )= 1.032000000000d0
       TAB( 970 )= 1.031000000000d0
       TAB( 971 )= 1.030000000000d0
       TAB( 972 )= 1.029000000000d0
       TAB( 973 )= 1.028000000000d0
       TAB( 974 )= 1.027000000000d0
       TAB( 975 )= 1.026000000000d0
       TAB( 976 )= 1.025000000000d0
       TAB( 977 )= 1.024000000000d0
       TAB( 978 )= 1.023000000000d0
       TAB( 979 )= 1.022000000000d0
       TAB( 980 )= 1.021000000000d0
       TAB( 981 )= 1.020000000000d0
       TAB( 982 )= 1.019000000000d0
       TAB( 983 )= 1.018000000000d0
       TAB( 984 )= 1.017000000000d0
       TAB( 985 )= 1.016000000000d0
       TAB( 986 )= 1.015000000000d0
       TAB( 987 )= 1.014000000000d0
       TAB( 988 )= 1.013000000000d0
       TAB( 989 )= 1.012000000000d0
       TAB( 990 )= 1.011000000000d0
       TAB( 991 )= 1.010000000000d0
       TAB( 992 )= 1.009000000000d0
       TAB( 993 )= 1.008000000000d0
       TAB( 994 )= 1.007000000000d0
       TAB( 995 )= 1.006000000000d0
       TAB( 996 )= 1.005000000000d0
       TAB( 997 )= 1.004000000000d0
       TAB( 998 )= 1.003000000000d0
       TAB( 999 )= 1.002000000000d0
       TAB( 1000 )= 1.001000000000d0
       TAB( 1001 )= 1.000000000000d0
       TAB( 1002 )= 0.999000000000d0
       TAB( 1003 )= 0.998000000000d0
       TAB( 1004 )= 0.997000000000d0
       TAB( 1005 )= 0.996000000000d0
       TAB( 1006 )= 0.995000000000d0
       TAB( 1007 )= 0.994000000000d0
       TAB( 1008 )= 0.993000000000d0
       TAB( 1009 )= 0.992000000000d0
       TAB( 1010 )= 0.991000000000d0
       TAB( 1011 )= 0.990000000000d0
       TAB( 1012 )= 0.989000000000d0
       TAB( 1013 )= 0.988000000000d0
       TAB( 1014 )= 0.987000000000d0
       TAB( 1015 )= 0.986000000000d0
       TAB( 1016 )= 0.985000000000d0
       TAB( 1017 )= 0.984000000000d0
       TAB( 1018 )= 0.983000000000d0
       TAB( 1019 )= 0.982000000000d0
       TAB( 1020 )= 0.981000000000d0
       TAB( 1021 )= 0.980000000000d0
       TAB( 1022 )= 0.979000000000d0
       TAB( 1023 )= 0.978000000000d0
       TAB( 1024 )= 0.977000000000d0
       TAB( 1025 )= 0.976000000000d0
       TAB( 1026 )= 0.975000000000d0
       TAB( 1027 )= 0.974000000000d0
       TAB( 1028 )= 0.973000000000d0
       TAB( 1029 )= 0.972000000000d0
       TAB( 1030 )= 0.971000000000d0
       TAB( 1031 )= 0.970000000000d0
       TAB( 1032 )= 0.969000000000d0
       TAB( 1033 )= 0.968000000000d0
       TAB( 1034 )= 0.967000000000d0
       TAB( 1035 )= 0.966000000000d0
       TAB( 1036 )= 0.965000000000d0
       TAB( 1037 )= 0.964000000000d0
       TAB( 1038 )= 0.963000000000d0
       TAB( 1039 )= 0.962000000000d0
       TAB( 1040 )= 0.961000000000d0
       TAB( 1041 )= 0.960000000000d0
       TAB( 1042 )= 0.959000000000d0
       TAB( 1043 )= 0.958000000000d0
       TAB( 1044 )= 0.957000000000d0
       TAB( 1045 )= 0.956000000000d0
       TAB( 1046 )= 0.955000000000d0
       TAB( 1047 )= 0.954000000000d0
       TAB( 1048 )= 0.953000000000d0
       TAB( 1049 )= 0.952000000000d0
       TAB( 1050 )= 0.951000000000d0
       TAB( 1051 )= 0.950000000000d0
       TAB( 1052 )= 0.949000000000d0
       TAB( 1053 )= 0.948000000000d0
       TAB( 1054 )= 0.947000000000d0
       TAB( 1055 )= 0.946000000000d0
       TAB( 1056 )= 0.945000000000d0
       TAB( 1057 )= 0.944000000000d0
       TAB( 1058 )= 0.943000000000d0
       TAB( 1059 )= 0.942000000000d0
       TAB( 1060 )= 0.941000000000d0
       TAB( 1061 )= 0.940000000000d0
       TAB( 1062 )= 0.939000000000d0
       TAB( 1063 )= 0.938000000000d0
       TAB( 1064 )= 0.937000000000d0
       TAB( 1065 )= 0.936000000000d0
       TAB( 1066 )= 0.935000000000d0
       TAB( 1067 )= 0.934000000000d0
       TAB( 1068 )= 0.933000000000d0
       TAB( 1069 )= 0.932000000000d0
       TAB( 1070 )= 0.931000000000d0
       TAB( 1071 )= 0.930000000000d0
       TAB( 1072 )= 0.929000000000d0
       TAB( 1073 )= 0.928000000000d0
       TAB( 1074 )= 0.927000000000d0
       TAB( 1075 )= 0.926000000000d0
       TAB( 1076 )= 0.925000000000d0
       TAB( 1077 )= 0.924000000000d0
       TAB( 1078 )= 0.923000000000d0
       TAB( 1079 )= 0.922000000000d0
       TAB( 1080 )= 0.921000000000d0
       TAB( 1081 )= 0.920000000000d0
       TAB( 1082 )= 0.919000000000d0
       TAB( 1083 )= 0.918000000000d0
       TAB( 1084 )= 0.917000000000d0
       TAB( 1085 )= 0.916000000000d0
       TAB( 1086 )= 0.915000000000d0
       TAB( 1087 )= 0.914000000000d0
       TAB( 1088 )= 0.913000000000d0
       TAB( 1089 )= 0.912000000000d0
       TAB( 1090 )= 0.911000000000d0
       TAB( 1091 )= 0.910000000000d0
       TAB( 1092 )= 0.909000000000d0
       TAB( 1093 )= 0.908000000000d0
       TAB( 1094 )= 0.907000000000d0
       TAB( 1095 )= 0.906000000000d0
       TAB( 1096 )= 0.905000000000d0
       TAB( 1097 )= 0.904000000000d0
       TAB( 1098 )= 0.903000000000d0
       TAB( 1099 )= 0.902000000000d0
       TAB( 1100 )= 0.901000000000d0
       TAB( 1101 )= 0.900000000000d0
       TAB( 1102 )= 0.899000000000d0
       TAB( 1103 )= 0.898000000000d0
       TAB( 1104 )= 0.897000000000d0
       TAB( 1105 )= 0.896000000000d0
       TAB( 1106 )= 0.895000000000d0
       TAB( 1107 )= 0.894000000000d0
       TAB( 1108 )= 0.893000000000d0
       TAB( 1109 )= 0.892000000000d0
       TAB( 1110 )= 0.891000000000d0
       TAB( 1111 )= 0.890000000000d0
       TAB( 1112 )= 0.889000000000d0
       TAB( 1113 )= 0.888000000000d0
       TAB( 1114 )= 0.887000000000d0
       TAB( 1115 )= 0.886000000000d0
       TAB( 1116 )= 0.885000000000d0
       TAB( 1117 )= 0.884000000000d0
       TAB( 1118 )= 0.883000000000d0
       TAB( 1119 )= 0.882000000000d0
       TAB( 1120 )= 0.881000000000d0
       TAB( 1121 )= 0.880000000000d0
       TAB( 1122 )= 0.879000000000d0
       TAB( 1123 )= 0.878000000000d0
       TAB( 1124 )= 0.877000000000d0
       TAB( 1125 )= 0.876000000000d0
       TAB( 1126 )= 0.875000000000d0
       TAB( 1127 )= 0.874000000000d0
       TAB( 1128 )= 0.873000000000d0
       TAB( 1129 )= 0.872000000000d0
       TAB( 1130 )= 0.871000000000d0
       TAB( 1131 )= 0.870000000000d0
       TAB( 1132 )= 0.869000000000d0
       TAB( 1133 )= 0.868000000000d0
       TAB( 1134 )= 0.867000000000d0
       TAB( 1135 )= 0.866000000000d0
       TAB( 1136 )= 0.865000000000d0
       TAB( 1137 )= 0.864000000000d0
       TAB( 1138 )= 0.863000000000d0
       TAB( 1139 )= 0.862000000000d0
       TAB( 1140 )= 0.861000000000d0
       TAB( 1141 )= 0.860000000000d0
       TAB( 1142 )= 0.859000000000d0
       TAB( 1143 )= 0.858000000000d0
       TAB( 1144 )= 0.857000000000d0
       TAB( 1145 )= 0.856000000000d0
       TAB( 1146 )= 0.855000000000d0
       TAB( 1147 )= 0.854000000000d0
       TAB( 1148 )= 0.853000000000d0
       TAB( 1149 )= 0.852000000000d0
       TAB( 1150 )= 0.851000000000d0
       TAB( 1151 )= 0.850000000000d0
       TAB( 1152 )= 0.849000000000d0
       TAB( 1153 )= 0.848000000000d0
       TAB( 1154 )= 0.847000000000d0
       TAB( 1155 )= 0.846000000000d0
       TAB( 1156 )= 0.845000000000d0
       TAB( 1157 )= 0.844000000000d0
       TAB( 1158 )= 0.843000000000d0
       TAB( 1159 )= 0.842000000000d0
       TAB( 1160 )= 0.841000000000d0
       TAB( 1161 )= 0.840000000000d0
       TAB( 1162 )= 0.839000000000d0
       TAB( 1163 )= 0.838000000000d0
       TAB( 1164 )= 0.837000000000d0
       TAB( 1165 )= 0.836000000000d0
       TAB( 1166 )= 0.835000000000d0
       TAB( 1167 )= 0.834000000000d0
       TAB( 1168 )= 0.833000000000d0
       TAB( 1169 )= 0.832000000000d0
       TAB( 1170 )= 0.831000000000d0
       TAB( 1171 )= 0.830000000000d0
       TAB( 1172 )= 0.829000000000d0
       TAB( 1173 )= 0.828000000000d0
       TAB( 1174 )= 0.827000000000d0
       TAB( 1175 )= 0.826000000000d0
       TAB( 1176 )= 0.825000000000d0
       TAB( 1177 )= 0.824000000000d0
       TAB( 1178 )= 0.823000000000d0
       TAB( 1179 )= 0.822000000000d0
       TAB( 1180 )= 0.821000000000d0
       TAB( 1181 )= 0.820000000000d0
       TAB( 1182 )= 0.819000000000d0
       TAB( 1183 )= 0.818000000000d0
       TAB( 1184 )= 0.817000000000d0
       TAB( 1185 )= 0.816000000000d0
       TAB( 1186 )= 0.815000000000d0
       TAB( 1187 )= 0.814000000000d0
       TAB( 1188 )= 0.813000000000d0
       TAB( 1189 )= 0.812000000000d0
       TAB( 1190 )= 0.811000000000d0
       TAB( 1191 )= 0.810000000000d0
       TAB( 1192 )= 0.809000000000d0
       TAB( 1193 )= 0.808000000000d0
       TAB( 1194 )= 0.807000000000d0
       TAB( 1195 )= 0.806000000000d0
       TAB( 1196 )= 0.805000000000d0
       TAB( 1197 )= 0.804000000000d0
       TAB( 1198 )= 0.803000000000d0
       TAB( 1199 )= 0.802000000000d0
       TAB( 1200 )= 0.801000000000d0
       TAB( 1201 )= 0.800000000000d0
C=======================================================================
c     HC_DSSE Rupture Criterion
C=======================================================================
      INST  = ZERO
CARD1     
      CALL HM_GET_INTV   ('Ifail_sh'  ,IFAIL_SH ,IS_AVAILABLE,LSUBMODEL)
      CALL HM_GET_FLOATV ('PTHKF'     ,PTHKF    ,IS_AVAILABLE,LSUBMODEL,UNITAB)
      CALL HM_GET_INTV   ('I_Flag'    ,IFLAG    ,IS_AVAILABLE,LSUBMODEL)
CARD2 
      CALL HM_GET_FLOATV ('a_HC_DSSE' ,AFRAC    ,IS_AVAILABLE,LSUBMODEL,UNITAB)
      CALL HM_GET_FLOATV ('b_HC_DSSE' ,BFRAC    ,IS_AVAILABLE,LSUBMODEL,UNITAB)
      CALL HM_GET_FLOATV ('c_HC_DSSE' ,CFRAC    ,IS_AVAILABLE,LSUBMODEL,UNITAB)
      CALL HM_GET_FLOATV ('d_HC_DSSE' ,INST     ,IS_AVAILABLE,LSUBMODEL,UNITAB)
      CALL HM_GET_FLOATV ('n_f'       ,NFRAC    ,IS_AVAILABLE,LSUBMODEL,UNITAB)
C=======================================================================
      IF (NFRAC  == ZERO) NFRAC  = ONE
      IF (IFAIL_SH == 0) IFAIL_SH = 1
      IFAIL_SH = MIN(IFAIL_SH,3)
      IF (PTHKF == ZERO) PTHKF = ONE - EM06
      PTHKF = MIN(PTHKF, ONE)
      PTHKF = MAX(PTHKF,-ONE)
       IF (PTHKF /= ZERO .and. IFAIL_SH > 1) THEN
         PTHKF = PTHKF
       ELSEIF (IFAIL_SH == 1) THEN
         PTHKF = EM06
       ELSEIF (IFAIL_SH == 2) THEN
         PTHKF = ONE - EM06
       ENDIF
c---------------------------
c
      FAIL%KEYWORD = 'HC_DSSE' 
      FAIL%IRUPT   = IRUPT 
      FAIL%FAIL_ID = FAIL_ID 
      FAIL%NUPARAM = 7
      FAIL%NIPARAM = 0
      FAIL%NUVAR   = 2
      FAIL%NFUNC   = 0
      FAIL%NTABLE  = 0
      FAIL%NMOD    = 0
      FAIL%PTHK    = PTHKF
c            
      ALLOCATE (FAIL%UPARAM(FAIL%NUPARAM))
      ALLOCATE (FAIL%IPARAM(FAIL%NIPARAM))
      ALLOCATE (FAIL%IFUNC (FAIL%NFUNC))
      ALLOCATE (FAIL%TABLE (FAIL%NTABLE))

C=======================================================================
C
C pre definition for user-input data when only 
C tension test data are provided
C
C=============================================  
      IF (IFLAG == 0) THEN    ! NO parameter fitting
        FAIL%UPARAM(1) = AFRAC
        FAIL%UPARAM(2) = BFRAC
        FAIL%UPARAM(3) = CFRAC
        FAIL%UPARAM(4) = NFRAC
        FAIL%UPARAM(5) = INST
        FAIL%UPARAM(6) = 0    !    PTHKF - no more used
        FAIL%UPARAM(7) = IFAIL_SH
      ELSE                    ! parameter fitting
        BFRAC2 = BFRAC
        B16    = (AFRAC / BFRAC)**0.1
        B17    = (CFRAC / BFRAC)**0.1          
        B18    = ONE/B16+TWO/sqrt(THREE)-ONE/B17
        B19    = -ONE/B16 + ONE/B17
        CFRAC2 = B19/B18
        B21    = (ONE+CFRAC2)/B16

        CALL LINEAR_INTERP(LX,TAB,1201,B21,Y)

        AFRAC2 = Y
        SMALL  = 0.00001
        INST2  = ONE
        F05    = SQRT(THREE)*(INST/BFRAC)**(-0.01)
        DO I =1,20
          G12    = ((ONE+TWO**(INST2-ONE))**(ONE/INST2) - F05)**2
          I12    = (((ONE+TWO**(INST2+SMALL-ONE))**(ONE/(INST2+SMALL)) - F05)**2-
     .             ((1.0+2.0**(INST2-SMALL-1.0))**(1.0/(INST2-SMALL)) - F05)**2)/(TWO*SMALL)
          INST2  = INST2 - G12/I12
        ENDDO
        FAIL%UPARAM(1) = AFRAC2
        FAIL%UPARAM(2) = BFRAC2
        FAIL%UPARAM(3) = CFRAC2
        FAIL%UPARAM(4) = NFRAC
        FAIL%UPARAM(5) = INST2
        FAIL%UPARAM(6) = 0    !     PTHKF - no more used
        FAIL%UPARAM(7) = IFAIL_SH
      ENDIF

C--------------------------------------------------
      IF (IS_ENCRYPTED) THEN
        WRITE(IOUT,'(5X,A,//)')'CONFIDENTIAL DATA'
      ELSE       
        WRITE(IOUT,1000)
        IF (IFLAG == 0) THEN 
          WRITE(IOUT,1001) AFRAC,BFRAC,CFRAC,INST,NFRAC
        ELSE
          WRITE(IOUT,1050) AFRAC,BFRAC,CFRAC,AFRAC2,BFRAC2,CFRAC2,INST2,NFRAC,INST
        ENDIF  
        WRITE(IOUT,1100) IFAIL_SH,PTHKF   
      ENDIF          
C--------------------------------------------------
      RETURN
 1000 FORMAT(
     & 5X,'-----------------------------------------------',/,
     & 5X,'            HC-DSSE FAILURE MODEL              ',/,
     & 5X,'-----------------------------------------------',/)
 1001 FORMAT(
     & 5X,'CLASSIC INPUT METHOD:',/
     & 5X,'COEFFICIENT A. . . . . . . . . . . . . . . . .=',1PG20.13,/
     & 5X,'COEFFICIENT B. . . . . . . . . . . . . . . . .=',1PG20.13,/
     & 5X,'COEFFICIENT C. . . . . . . . . . . . . . . . .=',1PG20.13,/
     & 5X,'COEFFICIENT D. . . . . . . . . . . . . . . . .=',1PG20.13,/
     & 5X,'COEFFICIENT Nf . . . . . . . . . . . . . . . .=',1PG20.13,/)
 1050 FORMAT(
     & 5X,'PHYSICAL INPUT METHOD:',/
     & 5X,'SHEAR FAILURE STRAIN . . . . . . . . . . . . .=',1PG20.13,/
     & 5X,'UNIAXIAL TENSION FAILURE STRAIN. . . . . . . .=',1PG20.13,/
     & 5X,'PLAINSTRAIN TENSION FAILURE STRAIN . . . . . .=',1PG20.13,/
     & 5X,'COEFFICIENT A. . . . . . . . . . . . . . . . .=',1PG20.13,/
     & 5X,'COEFFICIENT B. . . . . . . . . . . . . . . . .=',1PG20.13,/
     & 5X,'COEFFICIENT C. . . . . . . . . . . . . . . . .=',1PG20.13,/
     & 5X,'COEFFICIENT D. . . . . . . . . . . . . . . . .=',1PG20.13,/
     & 5X,'COEFFICIENT Nf . . . . . . . . . . . . . . . .=',1PG20.13,/
     & 5X,'DSSE INSTABILITY STRAIN. . . . . . . . . . . .=',1PG20.13,/)
 1100 FORMAT(
     & 5X,'SHELL ELEMENT DELETION PARAMETERS:                  ',/, 
     & 5X,'FAILURE FLAG IFAIL_SH. . . . . . . . . . . . .=',I3,/
     & 5X,'  = 1: ONE INTG. PT. FAILURE PRIOR TO SHELL DELETION',/,
     & 5X,'  = 2: ALL INTG. PT. FAILURE PRIOR TO SHELL DELETION',/, 
     & 5X,'       (OR PTHICKFAIL IF DEFINED)                   ',/,
     & 5X,'  = 3: NO ELEMENT DELETION                          ',/,
     & 5X,'PARAMETER PTHICKFAIL . . . . . . . . . . . . .=',1PG20.13,/,
     & 5X,'  > 0.0 : FRACTION OF FAILED THICKNESS              ',/,
     & 5X,'  < 0.0 : FRACTION OF FAILED INTG. POINTS OR LAYERS ',/)

      END
      
Chd|====================================================================
Chd|  LINEAR_INTERP                 source/materials/fail/hc_dsse/hm_read_fail_hc_dsse.F
Chd|-- called by -----------
Chd|        HM_READ_FAIL_HC_DSSE          source/materials/fail/hc_dsse/hm_read_fail_hc_dsse.F
Chd|-- calls ---------------
Chd|====================================================================
      SUBROUTINE LINEAR_INTERP(TAB_X,TAB_Y,LTAB,X,Y)
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
c!       IMPLICIT NONE
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      my_real TAB_X(LTAB),TAB_Y(LTAB),X,Y
      INTEGER LTAB
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER XMIN,XMAX,XMID
      LOGICAL CONDITION
      my_real ALPHA
      
      XMIN=1
      XMAX=LTAB
      CONDITION=.TRUE.
      
      DO WHILE(CONDITION .eqv. .TRUE.)
c!       print*,'XMIN-XMAX',XMIN,XMAX
       IF(TAB_X(XMIN)==X)THEN
         XMAX=XMIN
         CONDITION=.FALSE.
       ELSEIF (TAB_X(XMAX)==X)THEN
         XMIN=XMAX
         CONDITION=.FALSE.
       ELSEIF (XMAX==(XMIN+1))THEN
         CONDITION=.FALSE.
       ELSE
         CONDITION=.TRUE.
         XMID=XMIN+(XMAX-XMIN)/2
         IF(TAB_X(XMID) > X)THEN 
            XMAX=XMID
         ELSE
            XMIN=XMID
         ENDIF
       ENDIF
      ENDDO   
      
c!      print*,'-->',XMIN,XMAX,TAB_X(XMIN),TAB_X(XMAX)
      IF(XMIN /= XMAX)THEN
        ALPHA = (TAB_Y(XMAX)-TAB_Y(XMIN))/(TAB_X(XMAX)-TAB_X(XMIN))
        Y = X* ALPHA + TAB_Y(XMIN)-ALPHA*TAB_X(XMIN)
      ELSE
        Y = TAB_Y(XMIN)
      ENDIF

      END
